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The  objective  of  the  Crisis  Management  Program 
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Department  of  Defense  advanced  technologies 
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U.S.  Naval  Postgraduate  School 
University  of  Maryland 
University  of  Southern  California 
Yale  University 


Inquiries  and  comments  regarding 
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Statement  of  problem  and  proposed  solution.  This 
report  describes  in  detail  one  component  of  the  development 
of  an  integrated  crisis  warning  system,  the  design  and  use 
of  interactive  computer  software  necessary  for  the  develop- 
ment of  such  a system.^-  The  component  was  developed  for  the 
Defense  Advanced  Research  Projects  Agency's  Cybernetics 
Technology  Office  during  the  period  from  January  1 to  Sep- 
tember 30,  1976.  Interactive  software  is  an  essential 
component  of  the  development,  testing,  and  evaluation  of  a 
user-oriented  integrated  system  and  of  prototype  crisis 
warning  systems. 


Design,  Test,  and  Demonstration  of  the  First-Stage  Crisis 
Early  Warning  Prototype  System 

The  prototype  system,  as  designed,  tested,  and  developed, 
was  comprised  of : 

(1)  five  quantitative  international  political  in- 
dicators ; 

(2)  a forecasting  capability  which  includes  an  in- 
ternational crisis  object,  a short-range  retro- 
spective goal,  and  an  associative  method;  and 

(3)  a sophisticated  computer  base  endowed  with  effi- 
cient information  storage,  retrieval,  processing, 
and  display  capabilities. 

The  system  has  been  tested  for  its  ability  or  inability  to 
forecast  crises  retrospectively.  The  demonstration  system 
for  the  prototype  is  comprised  of  computer  hardware  and 
software  necessary  for  the  design,  installation,  and  opera- 
tion of  interactive  user-oriented  systems. 

System  Description 

The  prototype  system  described  in  this  report  is  the 
foundation  upon  which  future  systems  will  be  built  in 


For  an  overview  of  progress  on  the  entire  project,  see 
S.  J.  Andriole,  Progress  Report  on  the  Development  of  a 
Crisis  Early  Warning  Prototype  System,  Technical  Report 
^6-19  (McLean,  VA:  Decisions  and  Designs,  Incorporated, 
December,  1976). 


ii 


parallel  with  the  on-going  development  and  application  of 
quantitative  indicators  for  early  warning.  The  system  as  an 
overlayed  FORTRAN  program  consisting  of  1 main  overlay, 

PROGRAM  ANALYZ ; 4 primary  overlays;  PROGRAMS  DIALOG,  SEARCH, 
PLOT,  AND  TABULAR;  29  subroutines;  and  2 functions.  The 
system  is  written  in  Super  FORTRAN  (a  United  Computing  Systems, 
Incorporated  compiler) , and  requires  a time-sharing  driver 
resident  on  a host  mainframe.  The  program  is  relatively 
inefficient  without  the  use  of  a Tektronix  graphics  terminal. 


Sample  Program  Output 

A sample  of  the  output  from  the  crisis  early  warning 
prototype  system  is  notated  to  describe  the  area  in  the 
program  from  which  the  output  is  generated. 

System  Design 

A graph  of  the  crisis  early  warning  prototype  shows  the 
relationship  each  overlay  and  its  associated  subroutines  has 
to  the  main  overlay  as  well  as  to  each  other. 

System  Flow  Charts 

The  main  overlay  and  each  of  the  primaries  are  flow- 
charted. Calls  to  the  subroutines  are  shown  as  predefined 
processes  and  are  not  charted  individually . 

Documented  FORTRAN  Source  Code 

To  allow  access  and  ease  of  modification  to  any  FORTRAN 
programmer,  each  routine  is  internally  documented.  Appendixes 
A and  B contain,  respectively,  the  NATION  file  and  the  RWINDX 
file,  the  index  for  the  events  file  by  month. 
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SOFTWARE  DESIGN  FOR  AN  INTERACTIVE 
CRISIS  EARLY  WARNING  PROTOTYPE  SYSTEM 


1.0  INTRODUCTION 


This  report  describes  the  design  and  use  of  interactive 
computer  software  necessary  for  the  development  of  an  inte- 
grated crisis  warning  system.  Interactive  software  is  an 
essential  part  of  the  development  of  a user-oriented  inte- 
grated system,  as  well  as  the  development  and  test  of  proto- 
type crisis  warning  systems.  Accordingly,  this  report 
summarizes  the  development  and  test  of  the  first-stage 
crisis  early  warning  prototype  system  during  the  period 
January  1 to  June  30  and,  to  a much  greater  extent,  during 
the  period  July  1 to  September  30,  1976. 

1.1  Overview  of  the  Problem 


Recent  history  has  acquainted  us  with  a variety  of 
unique  problems,  including  resource  and  energy  scarcity, 
population  expansion  and  maldistribution,  nuclear  prolifera- 
tion, and  international  terrorism.  As  a dominant  global 
actor,  the  U.S.  must  deal  with  such  problems,  especially 
when  they  evolve  into  threatening  international  crises. 
Procedures  designed  to  anticipate,  avert,  and  manage  prob- 
lems and  crises  of  all  sorts  should  thus  continue  to  be 
developed,  evaluated,  and  improved. 

In  an  effort  to  respond  to  the  defense  imperatives 
connected  with  intra-  and  international  problems  and  crises, 
the  defense  community  has  devoted  attention  to  the  develop- 
ment of  approaches  and  methods  designed  to  enhance  its 
overall  warning  and  management  capabilities.  While  much  of 
this  work  has  been  productive,  much  remains  to  be  done. 
Specific  problems  include  the  systematic  identification, 
use,  and  combination  of  quantitative  military,  political, 
and  economic  indicators;  the  integration  of  quantitative 
estimates  of  U.S.  military,  political  and  economic  interests 
abroad;  and,  perhaps  most  importantly,  the  development  and 
integration  of  techniques  for  the  rapid  and  efficient  re- 
trieval, manipulation,  and  display  of  important  information. 

1 . 2  Overview  of  a Proposed  Solution 

In  an  effort  to  contribute  to  the  defense  community's 
ability  to  forecast  intra-  and  international  crises,  DDI 
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has  developed  and  tested  a first-stage  crisis  early  warning 
prototype  system.1  The  testing  addressed  two  considerations. 
First,  it  involved  the  ability  of  the  prototype  to  forecast 
retrospectively  a number  of  international  crises;  and, 
second,  it  involved  demonstrating  precisely  how  crisis 
warning  systems  such  as  the  prototype  might  be  used.  The 
interactive  software  discussed  in  this  report  is  relevant  to 
both  aspects  of  the  test.  Section  2.0  briefly  introduces 
the  crisis  early  warning  prototype  system,  while  sections 
3.0  through  7.0  of  this  report  describe  and  display  these 
software  capabilities. 


] 
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LFor  more  detail  on  the  first-stage  prototype,  see  S.  J. 


Andriole,  Progress  Report  on  the  Development  of  a Crisis 
Early  Warning  Prototype  System,  Technical  Report  76-19 
(McLean,  VA:  Decisions  and  Designs,  Incorporated,  December 
1976) . 
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2.0  DESIGN,  TEST,  AND  DEMONSTRATION  OF  THE 
FIRST-STAGE  CRISIS  EARLY  WARNING  PROTOTYPE  SYSTEM 


2 . 1 Range  of  Crisis  Indicators 

The  prototype  is  comprised  of  quantitative  political 
indicators  developed  with  reference  to  the  concept  of 
"event  interaction."  Future  prototypes  will  be  comprised  of 
additional  indicators,  as  Figure  2-1  suggests  with  reference 
to  the  range  of  potential  indicators. 


MILITARY 

POLITICAL 

ECONOMIC 

Static 

Dynamic 

Static 

Dynamic 

Static 

Dynamic 

I 

D 

D 

D 

D 
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RANGE  OF  CRISIS  INDICATORS 
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Event-interactions  may  be  defined  as  official  state- 
ments or  actions  which  cross  national  boundaries. 1 They  are 
particularly  suited  to  the  task  of  short-range  crisis  fore- 
casting because  they  are  dynamic  and  readily  receptive  to 
measurement . 


^The  concept  of  an  event-interaction  was  developed  with 
reference  to  the  study  of  international  relations  by 
Charles  A.  McClelland.  See  C.  A.  McClelland,  Theory  and 
the  International  System  (New  York:  Macmillan^  1966 ) , and 

C.  A.  McClelland  et  al . , World  Event/Interaction  Survey 
(WEIS)  Handbook  and  Codebook,  WEIS  Technical  Report  (Los 
Angeles:  University  of  Southern  California,  January,  1969). 
Also  see  P.  M.  Burgess  and  R.  W.  Lawton,  Indicators  of 
International  Behavior:  An  Assessment  of  Events  Data  Research, 
Sage  International  Studies  Series,  Vol.  I (Beverly  Hills, 

CA,  1972);  C.  W.  Kegley  et  al.,  eds . , International  Events 
and  the  Comparative  Analysis  of  Foreign  Policy  (Columbia, 

SC : University  of  South  Carolina  Press,  1975) ; and  E.  E. 

Azar  and  J.  D.  Ben-Dak,  eds.,  Theory  and  Practice  of  Events 
Research  (New  York:  Gordon  and  Breach,  1975);  among  many 

others . 


3 


Event-interactions  are  generated  via  public  or  private 
(classified)  sources  and  an  "event  coding  scheme."  For 
example,  if  the  New  York  Times  reported  that  the  Soviet 
Union  warned  the  Chinese  to  withdraw  from  a particular 
border,  the  event  would  be  coded  as  a "warning"  and  assigned 
a numeric  code.  Similarly,  requests,  proposals,  accusations, 
and  the  like  are  coded  numerically  and  stored  for  future 
retrieval  and  processing.  The  event  coding  scheme  employed 
for  prototypical  purposes  is  the  product  of  the  World  Event 
Interaction  Survey  (WEIS) , an  event  data  project  which,  with 
ARPA  support,  refined  the  methodology  associated  with  the 
collection  and  treatment  of  event  data.  Cnrrently,  the  WEIS 
data  file  consists  of  over  78,000  events  coded  from  the 
New  York  Times  for  the  period  1966  to  the  present. 2 

Events  may  thus  be  classified  according  to  a predeter- 
mined coding  scheme.  The  WEIS  scheme  recognizes  63  kinds  of 
events  in  22  broad  categories.  There  are  10  cooperative 
categories  and  12  conflictual  ones.  All  22  appear  in  Figure 
2-2. 


The  basic  coding  elements  include  the  type  of  event 
observed  as  well  as  the  time  of  its  observation.  Actors  and 
targets  constitute  the  remaining  two  elements.  In  a very 
real  sense,  then,  the  coding  elements  provide  information 
regarding  who  (actor)  does  what  (event)  to  whom  (target) 
and  when  (time) . 

A number  of  crisis  indicators  have  been  developed  from 
event  data.  Ours  have  been  organized  with  reference  to  the 
concepts  of  volume  and  variety  and  the  realities  of  one-  and 
two-way  flows.  As  Figure  2-3  illustrates,  we  have  entered 
activity,  tension,  and  uncertainty  indicators  into  the 
volume  and  variety  cells. 


2 

The  WEIS  data  set  continues  to  be  updated  and  used  by 
scholars,  R&D  analysts,  and  policy-makers,  and  constitutes 
one  of  the  very  few — if  only — consistently  coded  ten- 
year-plus  data  set. 

3The  concepts  of  volume  and  variety  were  outlined  by 
McClelland.  See  C.  A.  McClelland  et  al.,  The  Manage- 
ment and  Analysis  of  International  Event  Data:  A 

Computerized  System  for  Monitoring  and  Projecting  Event 
Flows , WEIS  Technical  Report  (Los  Angeles:  University  of 
Southern  California,  September,  1971).  Also  see  R.  A. 

Young  et  al.,  The  Utilization  of  ARPA-Supported  Research 
for  National  Security  Planning,  Technical  Report  (Arlington , 
VA:  CACI,  Incorporated,  October,  1972)  and  B.  I.  Spector 

et  al..  Quantitative  Indicators  for  Defense  Analysis, 

Final  Technical  Report  (Arlington,  VA:  CACI,  Incorporated, 

June,  1975).  We  have,  however,  made  a number  of  adjust- 
ments to  the  political  indicators  developed  in  the  above 
reports . 
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1.  YIELD 

011  Surrender,  Yield  to  order,  submit  to 
arrest,  etc. 

012  Yield  position;  retreat,  evacuate 

013  Admit  wrongdoing;  retract  statement 

2.  COMMENT 

021  Explicit  decline  to  comment 

022  Comment  on  situation-pessimistic 

023  Comment  on  situation-neutral 

024  Comment  on  situation-optimistic 

025  Explain  policy  or  future  position 

3.  CONSULT 

031  Meet  with;  at  a neutral  site;  or  send  note 

032  Visit;  go  to 

033  Receive  visit;  host 

4.  APPROVE 

041  Praise,  hail,  applaud,  condolences 

042  Endorse  other  policy  or  position;  give 
verbal  support 

5.  PROMISE 

051  Promise  own  policy  support 

052  Promise  material  support 

053  Promise  other  future  support 

054  Assure,  reassure 

6.  GRANT 

061  Express  regret;  apologize 

062  Give  state  invitation 

063  Grant  asylum 

064  Grant  privilege,  diplomatic  recognition 
de  facto  relations,  etc. 

065  Suspend  negative  sanctions,  truce 

066  Release  and/or  return  persons  or 
property 

7.  REWARD 

071  Extend  economic  aid 

072  Extend  military  assistance 
973  Give  other  assistance 

8.  AGREE 

081  Make  substantive  agreement 

082  Agree  to  future  action  or  procedure 
agree  to  meet,  to  negotiate 

9.  REQUEST 

091  Ask  for  information 

092  Ask  for  policy  assistance 

093  Ask  for  material  assistance 

094  Request  action;  call  for 

095  Entreat;  plead,  appeal  to 

10.  PROPOSE 

101  Offer  proposal 

102  Urge  or  suggest  action  or  policy 


11.  REJECT 

111  Turn  down  proposal;  reiect  protest 
demand,  threat,  etc 

112  Refuse,  oppose,  refuse  to  allow 

12.  ACCUSE 

121  Charge,  criticize;  blame,  disapprove 

122  Denounce,  denigrate,  abuse 

13.  PROTEST 

131  Make  complaint  (not  formal) 

132  Formal  complaint  or  protest 

14.  DENY 

141  Deny  an  accusation 

142  Deny  an  attributed  policy,  action, 
role  or  position 

15.  DEMAND 

150  Issue  order  or  command,  insist , demand 
compliance,  etc. 

16.  WARN 

160  Give  warning 

17.  THREATEN 

171  Threat  without  specific  negative 
sanctions 

172  Threat  with  specific  negative  sanctions 

173  Threat  with  force  specified 

174  Ultimatum,  threat  with  time  limit  and 
negative  sanctions  specified 

18.  DEMONSTRATE 

181  Nonmilitary  demonstration  walk -out  on 

182  Armed  force  mobilization,  exercise 
and/or  display 

19.  REDUCE  RELATIONSHIP 

191  Cancel  or  postpone  event 

192  Reduce  routine  international  activity, 
recall  officials,  etc 

194  Halt  negotiations 

195  Break  diplomatic  relations 

20.  EXPEL 

201  Order  personnel  out  of  country 

202  Expel  organization  or  group 

21.  SEIZE 

21 1 Seize  position  or  possessions 

212  Detain  or  arrest  personal 

22.  FORCE 

221  Nonnniury  destructive  act 

222  Nonmilitary  iniury/descruction 

223  Military  tngagement 


Figure  2-2 

THE  WEIS  EVENTS  CODING  SCHEME 
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Figure  2 3 

POLITICAL  EVFNT  INDICATORS 


One-  and  two-way  (volume)  flows  yield  activity  levels 
of  three  distinct  types.  First,  it  is  possible  to  monitor 
the  volume  of  total  activity  (the  total  number  of  coopera- 
tive and  conflictual  events)  sent  or  exchanged.  Second,  it 
is  possible  to  monitor  the  level  of  cooperative  activity 
sent  or  exchanged.  And  third,  it  is  possible  to  monitor  the 
conflictual  activity  level. 

The  total,  cooperative  and  conflictual,  one-  and  two- 
way  activity  levels  suggest  the  need  for  indicators  which 
will  calculate  the  mix  of  cooperative  and  conflictual  events. 
This  derivative  indicator  may  be  regarded  as  a tension 
level.  Tension  ranges  from  0 to  100  and  reflects  the 
percentage  of  the  total  number  of  events  sent  or  exchanged 
that  are  cooperative  and  conflictual,  and  may  be  calculated 
as  follows: ^ 


COOPERATIVE  BEHAVIOR  (CO) 

PROPOSE 
AGREE 
PRAISE  . . . 

CONFLICTUAL  BEHAVIOR  (CON) 

DENOUNCE 
ACCUSE 
THREATEN . . . 


TENSION 


CO  - CON  + , x 5Q 
CO  + CON 
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This  algorithm  is  derived  from  those,  including  policy 
style  and  relations,  developed  at  CAC1 . See,  for 
example,  T.  Rubin,  D.  Peasley,  and  L.  Hopkins,  Dissemina- 
tion  and  Evaluation  of  Quantitative  International  Affairs 
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The  third  indicator  measures  the  range  of  actions 
occurring  in  each  of  the  event  categories.  Actors  which 
initiate  numerous  events  across  the  22  event  categories  may 
be  said  to  behave  "inconsistently,"  while  those  who  initiate 
only  a small  number  of  event  types  are  more  consistent.  The 
measure  of  this  consistency  or  inconsistency  is,  in  infor- 
mation theory,  regarded  as  Krel  (relative  uncertainty),5 
which  may  range  from  0 to  +1. 

These  political  activity,  tension,  and  uncertainty 
indicators  are  tracked  according  to  how  they  deviate  from 
normal  ranges  of  behavior.  In  order  to  measure  the  precise 
degree  of  abnormality  exhibited  by  individual  nations,  or 
pairs  or  groups  of  nations,  standard  deviations  from  the 
normal  (mean)  political  activity,  tension,  and  uncertainty 
levels  are  calculated  and  standardized  into  Z-scores.  Z- 
scores  indicate  the  number  of  standard  deviations  from  the 
mean  and  are  calculated  as  follows : 


(SCORE  AT  TIME  n)  - (MEAN  OF  SCORES  UP  TO  TIME  n 1) 
STANDARD  DEVIATION  FOR  ALL  SCORES  UP  TO  TIME  n 1 


2 . 2 Forecasting  Capability 

The  prototype  is  endowed  with  a number  of  specific 
forecasting  options  which  constitute  its  overall  forecasting 
capability.  The  options  include  an  international  crisis 

Indicators,  Technical  Report  (Santa  Barbara,  CA:  CACI, 

Incorporated,  July,  1972)  and  Spector,  Quantitative  Indi- 
cators . Previous  indicators  ranged  in  value  from  -1  to 
+1 . They  also  acknowledged  the  impact  of  neutral  events. 
Our  0 to  100  one-  and  two-way  tension  levels  have  been 
modified  with  special  reference  to  crisis  forecasting. 

We  are  currently  examining  a number  of  aggregations  and 
weighting  techniques  for  specific  application  to  crisis 
forecasting. 

5Research  regarding  Hrel  was  pioneered  in  international 
crisis  research  by  McClelland.  See  C.  A.  McClelland 
et  al.,  Management  and  Analysis  of  International  Event 
Data ; C.  A.  McClelland,  "The  Beginning,  Duration,  and 
Abatement  of  International  Crises:  Comparisons  in  Two 

Conflict  Arenas,"  in  C.  F.  Hermann,  ed..  International 
Crises:  Insights  from  Behavioral  Research  (New  York: 

Free  Press,  1972,  pp.  18-108 ) ; and  D.  A.  Zinnes,  Contem- 
porary Research  in  International  Politics  (New  York : 

Free  Press,  1976). 
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object,  a short-range  retrospective  goal,  and  an  associative 
method. 

The  prototype  is  thus  designed  to  generate  short- 
range  forecasts  of  international  political,  military,  and 
economic  crises. 

Insofar  as  the  monitoring  of  events  does  not  in  itself 
shed  much  light  upon  the  explanation  of  event  flows,  the 
methodology  used  is  not  objective  in  a causal  sense.  In- 
stead, the  method  is  an  associative  one  which  is  less  objec- 
tive than  those  based,  for  example,  upon  causal  modeling. 
Accordingly,  the  method  involves  monitoring  Z-scores  (for 
all  of  the  indicators,  all  of  the  flows,  and  for  specific 
time  increments)  and  linking  the  scores  with  previous  pre- 
crisis,  crisis,  and  non-crisis  behavior  (again  for  all  the 
indicators,  all  the  flows , and  for  specific  time  increments). 
The  method  thus  requires  that  pre-crisis,  crisis,  and  non- 
crisis periods  be  identified,  separated,  and  then  associated 
with  the  Z-scores  observed  during  past  periods.  This  pro- 
cedure enables  us  to  assign  probabilistic  meanings  tc  Z- 
scores  when  they  are  observed  at  certain  levels  in  the 
future . 

2 . 3 Computer  Base 

The  prototype  is  currently  endowed  with  efficient 
information  storage,  retrieval,  processing,  and  display 
capabilities.  With  the  aid  of  a Tektronix  4051  graphics 
terminal  and  the  software  described  at  length  below,  the 
user  is  able  to  command  the  rapid  calculation  and  display  of 
one-  and  two-way  activity,  tension,  and  uncertainty  levels 
on  a monthly,  quarterly,  or  yearly  basis.  In  addition,  the 
system  has  the  capability  to  present  the  indicators  in 
different  forms,  including  numerical  tables  comprised  of 
frequencies,  Z-scores,  tension  levels,  and  the  like,  with 
graphs  or  bar-charts  of  the  same  plotted  over  extended  or 
relatively  short  periods  of  time,  or  both. 

2 . 4 Testing  the  Crisis  Early  Warning  Prototye  System 

The  system  has  been  tested  for  its  ability  or  inability 
to  forecast  crises  retrospectively.  The  specific  crises 
forecasted  include  the  1967  Sino-Soviet  border  clash,  the 
1968  Soviet  invasion  of  Czechoslovakia,  and  the  1971  Indo- 
Pakistani  War.  Detailed  results  of  these  tests  may  be  found 
elsewhere. We  need  to  note  here  only  that  the  analysis  of 
the  three  crises  revealed  that  the  use  of  quantitative 
political  indicators  of  activity,  tension,  and  uncertainty 
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would  have  improved  the  ability  of  the  defense  community  to 
forecast  the  crises. 

2 . 5 Demonstrating  the  Prototype  System 

Another  operational  dimension  of  the  prototype  system 
is  comprised  of  the  computer  hardware  and  software  necessary 
for  the  design  and  installation  of  interactive  user-oriented 
systems.  Accordingly,  the  major  components  of  the  demon- 
stration system  now  include  an  event-interaction  data  base, 
interactive  software,  and  graphic  and  tabular  display 
capabilities.  As  described  below,  the  interactive  software 
enables  one  to  issue  commands  and  receive  prompt  responses. 
While  the  first  cut  of  the  demonstration  system  requires  the 
user  to  respond  to  a good  deal  of  prompting,  later  versions 
will  require  minimal  prompting  and  permit  quick  access  to 
all  aspects  of  the  system. 
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SYSTEM  DESCRIPTION 


"-CRISIS"  is  the  name  of  the  command  file  that  causes 
execution  of  the  crisis  early  warning  prototype  system. 

The  system  itself,  although  called  a system,  is  actually  an 
overlayed  FORTRAN  program.  The  program  currently  resides  on 
disk  in  two  forms : FORTRAN  source  code  and  relocatable 

binary.  There  are  also  several  archived  copies  maintained 
on  800  BPI,  odd  parity,  magnetic  tape.  The  portability  of 
the  program  itself  depends  upon  several  factors:  the  simi- 

larity of  ANSI  FORTRAN  IV  to  United  Computing  Systems, 
Incorporated  (UCS)  Super  FORTRAN,  the  availability  of  Tek- 
tronix Plot-10  Software,  and  the  access  to  certain  library 
and  intrinsic  functions.  The  fulfillment  of  these  require- 
ments makes  the  crisis  early  warning  prototype  system  a 
highly  efficient,  convertable,  stand-alone  program  that 
provides  all  functions  pertaining  to  the  selection  and 
display  of  quantitative  political  indicators  for  early 
warning.  Consequently,  the  program  is,  in  fact,  a system. 

3 . 1 Objective  of  the  Program 

Our  goal  has  been  very  specific  from  the  outset.  It  is 
to  parallel  the  research  connected  with  the  development 
and  application  of  quantitative  (military,  political,  and 
economic)  indicators  for  early  warning. 1 As  new  indicators 
are  developed  and  integrated  into  the  research  design,  the 
program  will  be  modified  to  accommodate  their  display. 
Accordingly,  the  prototype  system  described  in  this  report 
may  be  viewed  as  the  foundation  upon  which  future  systems 
will  be  built.  The  system  may  or  may  not  remain  intact  as 
it  currently  exists;  at  the  same  time,  it  will  remain  either 
as  the  primary  vehicle  through  which  the  computer  sciences 
department  will  perform  the  required  tasks,  or  as  a smaller 
part  of  a more  sophisticated  whole. 

The  first-stage  prototype  system  was  configured  by 
using  the  modular  programming  technique  to  yield  one  main 
overlay  and  four  primary  overlays.  Each  overlay  contains 


For  a detailed  look  at  the  scope,  method,  and  purpose  of 
the  crisis  forecasting  research  program  see  Decisions  and 
Designs,  Incorporated,  The  Development  of  a Crisis  Early 
Warning  Prototype  System  (Technical  Proposal,  McLean,  VA, 
December , 1975 );  Decisions  and  Designs,  Incorporated, 

The  Development  of  a Crisis  Early  Warning  Prototype  System 
(Technical  Proposal,  McLean,  VA,  July,  197(5 ) ; and  S . J . 
Andriole,  Progress  Report. 
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all  the  subroutines  required  to  ensure  the  autonomy  of  the 
overlay  resident  at  any  given  moment.  It  is  also  important 
to  note  that  the  main  overlay  always  remains  in  core;  that 
all  overlays  are  called  from  the  main  overlay  and  not  from 
each  other;  that  overlays  may  be  called  in  any  order  regard- 
less of  their  number;  that  once  an  overlay  has  been  called, 
it  resides  in  core  below  main;  that  variables  are  passed 
between  overlays  via  labeled  COMMON;  that  subroutines  may 
be  called  only  by  the  overlay  program  in  which  they  reside; 
and  that  the  primary  purpose  of  an  overlayed  program  is  to 
conserve  core  space. 

The  CEWPS  was  written  in  Super  FORTRAN  (SFO) , a FORTRAN 
VI  extension  language  offered  by  United  Computing  Systems, 
Incorporated.  The  CEWPS  can  be  executed  by  using  the  SFO 
compiler  on  any  Control  Data  6000  series  computer  system 
running  the  KRONOS  operating  system.  KPONOS  itself,  how- 
ever, is  not  a requirement.  Any  timesharing  driver  should 
suffice  since  the  system  utilizes  the  primitive  FORTRAN  I/O 
READ  and  WRITE  functions.  It  must  be  emphasized,  however, 
that  the  availability  of  TEKTRONIX  Plot-10  (or  similar 
graphics  software)  and  compatibility  of  FORTRAN  Library  and 
intrinsic  functions  are  requisite  to  the  operation  of  the 
program. 

Since  the  prototype  system  generates  sophisticated 
graphical  output,  it  would  be  inefficient  to  execute  without 
a TEKTRONIX  4010,  4012,  4014,  or  4051  terminal.  It  is  also 
important  to  provide  a user  with  1200  baud  communications, 
although  a degredated  version  can  be  made  to  plot  at  300. 

The  primary  overlay  which  produces  the  graphics  is  hard- 
coded to  execute  at  1200  baud. 

The  program  consists  of  1 main  overlay,  4 primary 
overlays,  26  subroutines,  and  2 functions  (see  Section  4.0 
diagrams).  Section  3.2  briefly  describes  each  overlay  and 
subroutine.  These  comments  are  further  supplemented  by 
Sections  4.0,  5.0,  and  6.0.  Section  6.0  is  incomplete  in 
that  it  only  charts  the  flow  of  main  and  primary  overlays 
(not  the  subroutines).  Section  7.0  includes  all  source 
code.  Each  routine  is  internally  documented,  a step  delib- 
erately undertaken  to  allow  any  FORTRAN  programmer  access 
and  ease  of  modification. 

3 . 2 Overlay  Descriptions 

3.2.1  Main  overlay  (0,0)  PROGRAM  ANALYZ.  This  routine 
is  the  main  driver.  It  consists  of  the  program  ANALYZ  and 
three  subroutines,  BLANC,  CREDITS,  and  INSTRNS.  (See  Sec- 
tion 4.0,  System  Diagram.)  Program  ANALYZ  prints  the  system 
title  and  calls  CREDITS.  It  then  calls  overlay  1 and  2 to 
initiate  the  selection  of  crisis  cases.  Once  this  is  com- 
plete, overlay  2 returns  to  main  and  displays  the  user  com- 
mands. Through  a series  of  "if  tests”  on  the  user  response. 


the  proper  overlay  and/or  subroutine  is  called.  The  possible 
responses  to  user  commands  and  the  related  calls  are  as 
follows : 


'I'  — calls  subroutine  INSTRNS 

'G'  — calls  Overlay  4,0  (graphics) 

'T*  — calls  Overlay  5,0  (tabular  O/P) 

'F'  --  calls  Overlays  1,0  & 2,0  (a  variation  of 

initial  case  selection 

'A'  — calls  overlays  1,0  & 2,0  (a  variation  of 

initial  case  selection) 

'C'  --  calls  overlays  1,0  & 2,0  (initial  case 

selection 

'E'  — Go  to  Print  Statement  & END  program 


Subroutine  Credits — This  subroutine  contains  no  logic.  It 
simply  writes  formatted  output  to  the  CRT.  The  routine 
immediately  returns  to  Main. 


Subroutine  Blanc — This  subroutine  consists  primarily  of  two 
calls  to  Plot-10  (AG  II)  (i.e.,  INITT  and  FINITT) . By 
utilizing  these  calls,  the  subroutine  can  accomplish  two 
tasks.  First,  it  blanks  the  CRT.  Second,  it  moves  the 
cursor  to  the  home  position.  In  the  near  future,  we  plan  to 
replace  these  calls  with  the  simple  output  of  a control 
character  to  blank  and  home  the  screen;  however,  at  1200 
baud,  it  becomes  difficult  to  accomplish  this  task  without 
running  into  a timing  problem  (note  the  existing  print 
statement) . 


Subroutine  INSTRNS — Like  CREDITS,  this  subroutine 
no  logic.  It  simply  writes  to  output  a formatted 
tion  of  the  operation  of  Overlay  4,0  (graphics), 
routine  is  called  when  the  user  responds  with  the 
'I'  to  the  USER  COMMAND  request. 


contains 

descrip- 

This 

character 


3.2.2  Primary  overlay  (1,0)  PROGRAM  DIALOG.  This 
routine  is  simply  a primary  overlay.  It  consists  of  the 
program  DIALOG  and  ten  subroutines:  NCODE,  CASE,  SETUP, 

TSETUP,  SSBC,  CZEINV,  INDWAR,  USSOV,  USPEO,  and  SOVPEO  (see 
Section  5.0,  System  Diagram).  Program  DIALOG  does  none  of 
the  actual  user  interaction.  However,  it  does  contain 
almost  all  the  logic  to  call  the  proper  subroutine  under  the 
current  parameters,  and  it  initiates  the  reading  of  both  the 
NATION  file  and  the  RWINDEX  file. 


DIALOG  will  call  Subroutine  CASE  and  return  the 
selected  case  number.  It  will  then  call  any  one  of  the 
subroutines  associated  with  that  case  number  to  provide  a 
heading  to  further  parameter  selection.  The  subroutines  are 
associated  with  the  menu  provided  in  subroutine  CASE  in  the 
following  manner: 
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1 = SSBC  (Sino-Soviet  Border  Clashes) 

2 = CZEINV  (Czechoslovakian  Invasion) 

3 = INDWAR  (India-Pakistani  War) 

4 = USSOV  (U.S. -Soviet  Union) 

5 = USPEO  (U .S . -Peoples  Republic  of  China) 

6 = SOVPEO  (Soviet  Union-Peoples  Republic  of  China) 

Once  the  headers  have  been  printed,  the  overlay  calls  sub- 
routine SETUP. 

Subroutine  SETUP  asks  the  user  for  the  fol- 
lowing information,  which  it  passes  back  to  the  Overlay: 

Initiator  - 3 characters 
Recipient  - 3 characters 
Flow  Direction  - 1 integer 
Time  Increment  - 1 integer 

When  these  parameters  are  converted  to  the  proper  values  in 
common,  DIALOG  calls  subroutine  TSETUP.  This  subroutine 
asks  the  user  for  the  start  date  (SDATE)  and  finish  date 
(FDATE)  of  the  time  period  for  which  the  user  desires  to 
collect  event  data.  The  SDATE  and  FDATE  parameters  are 
asked  for  in  the  form  MMM  DD  and  returned  to  dialog  in  the 
form  YYMMDD. 


Having  collected  all  necessary  information  to 
begin  processing,  the  program  then  calls  subroutines  NCODE 
in  order  to  validate  the  3-character  country  code,  look  up 
the  associated  integer  nation  number,  and  store  the  3-word 
(30  character)  expanded  country  name,  for  example, 

USA  002  UNITED  STATES. 

Finally,  DIALOG  will  open  and  read  file  RWINDEX  and  find 
the  address  of  the  beginning  date  (SDATE)  on  the  main  data 
base. 


3.2.3  Primary  Overlay  (2,0)  PROGRAM  SEARCH.  This 
routine  is  another  primary  overlay.  It  consists  of  the 
program  SEARCH,  eight  subroutines,  and  one  function  (see 
Section  5.0,  System  Diagram). 

The  SEARCH  program  collects  the  data  from  the  main  data 
base  into  arrays  according  to  the  parameters  derived  from 
Overlay  1,0.  It  also  maintains  the  accumulation  of  several 
counters.  The  function  NXTINC  is  a very  integral  part  of 
the  data  collection.  This  routine  signals  the  change  of 
time  increment  from  day  to  day,  month  to  month,  period  to 
period,  or  year  to  year. 

Once  all  calculations  have  been  made,  control  is  usually 
returned  to  MAIN. 
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Subroutine  CONVRT — This  subroutine  is  passed  an  integer 
array  from  SEARCH.  It  returns  the  same  array  in  the  real 
mode . 

Subroutine  ZSCORP — This  subroutine  calculates  the  progres- 
sive  means  and  progressive  Z-scores  for  a collection  of 
items  (array  passed  to  it) . The  arrays  passed  should  have 
data  collected  in  increments  starting  at  the  beginning  of 
the  data  base.  It  is  also  the  function  of  this  subroutine 
to  use  this  data  to  calculate  the  Z-score  and  to  delete  all 
Z-scores  except  those  that  fall  between  SDATE  and  FDATE  once 
the  calculations  are  made. 

Subroutine  PTABLE — This  subroutine  assigns  probabilities 
from  Z-scores  according  to  the  type  of  event  data  passed  to 
it.  There  are  three  types  of  event  data  Z-scores:  TOTAL, 

CONFLICTUAL,  and  COOPERATIVE.  A parameter  passed  from 
SEARCH  tells  the  routine  which  type  of  data  it  has  and 
thereby  begins  a table  lookup  by  using  the  proper  boundaries. 

Subroutine  HREL — This  subroutine  calculates  the  Hrel  of 
total  activity  event  data  for  each  of  a collection  of  time 
intervals . 

Subroutine  TENSION — This  subroutine  calculates  the  Tension 
Factor  (ratio  of  cooperative  to  conflictual  events)  for  each 
of  a collection  of  time  intervals. 

Subroutine  SMLTAB — This  subroutine  prints  the  30-day  proba- 
bilistic  tables  from  the  probabilities  calculated  by  ZSCORP 
for  the  total  events  array.  This  routine  calls  DEKODE  and 
DEKODA  subroutines.  DEKODE  splits  the  time  interval  date 
(SDATE  and  FDATE)  into  two  parts  (month  and  year) . Sub- 
routine DEKODA  does  essentially  the  same  although  it  is  sent 
an  array  in  16  format  (YYMMDD)  and  returns  the  array  in  the 
format  (MMM  YY) . Although  these  routines  will  execute  for 
all  possible  time  increment  selections,  they  were  primarily 
designed  for  monthly  increments. 

3.2.4  Primary  Overlay  (4,0)  PROGRAM  PLOT.  This 
routine  is  a primary  overlay.  It  consists  of  the  program 
PLOT,  seven  subroutines,  and  a function  (see  Section  5.0, 
System  Diagram) . 

The  SEARCH  program  provides  the  graphic  display 
capability  to  the  CEWPS.  This  program  calls  subroutines 
which  in  turn  call  the  PLOT-10  package  from  both  the  TCS  and 
AG- I I functions. 

After  rearranging  all  the  arrays  built  in  Over- 
lay 2,0  in  a more  readable  fashion,  the  program  executes  the 
PLOT-10  INITT  command.  This  command  blanks  the  CRT  and 
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initiates  the  graphics  mode.  Immediately,  subroutine  CHOOSE 
is  called  to  enter  graphics  parameters.  CHOOSE  solicits 
from  the  user  the  number  of  plots  desired,  type  of  plot,  and 
the  arrays  to  be  plotted.  A matrix  is  drawn  by  CHOOSE  to 
provide  an  association  between  the  arrays  constructed  in 
Overlay  2,0  and  a unique  name  or  number. 

Subroutine  PTABLE  is  called  to  recalculate 
probabilities,  a necessary  step  since  the  plots  generated  by 
PLOTIT  allow  for  only  one  character  after  the  decimal 
point,  whereas  TABULAR  output  specifications  require  two 
characters . 


Subroutine  PLOTIT  is  then  called  in  a loop  from 
one  to  six  times  depending  again  upon  the  number  of  user 
selections  made  in  subroutine  CHOOSE.  When  the  desired 
number  of  graphs  have  been  drawn,  subroutine  TITLE  is  called 
to  print  a title. 

If  the  type  of  graph  drawn  is  a multi-graph 
(more  than  one  plot  on  a single  axis) , subroutine  LGND  is 
called.  This  subroutine  will  draw  the  appropriate  line  and 
notate  the  associated  array  to  which  it  belongs.  There  are 
two  other  subroutines  that  are  used  while  in  graphics  mode 
and  are  called  by  the  other  subroutines,  not  the  overlay. 
Subroutine  USERS  is  a routine  taken  from  the  PLOT-10  AG  II 
manual  (p.  191)  and  modified  slightly.  This  routine  gives 
the  capability  of  doing  a point  plot  without  an  axis;  in 
the  CEWPS , we  use  it  to  display  the  probability  values 
directly  above  the  bar  on  a bar-chart  or  above  the  point  on 
a graph  with  an  arrow  drawn  to  it. 

Subroutine  CHCNVT,  like  USERS,  is  called  by 
subroutines  other  than  PLOT.  This  routine  takes  a text 
character  string  of  N length  and  converts  it  to  USASCII  code 
functions  for  Plot-10 (AG  II)  plotter  output.  This  routine 
is  necessary  for  all  special  labeling  and  titles  because 
Plot-10  will  not  accept  hollerith  constants. 

When  all  graphs,  labels,  titles,  and  legends  are 
completed,  program  PLOT  exits  the  graph  mode  with  a call  to 
the  PLOT-10  FINITT  routine.  This  routine  not  only  exits  in 
graph  mode  but  ensures  that  all  buffers  are  dumped.  After 
each  graph (s)  is  drawn,  the  program  reads  from  input  to 
allow  for  a pause,  and  to  give  the  user  an  opportunity  to 
study  the  display  or  make  a hard  copy  of  it.  Normal  con- 
tinuation involves  simply  hitting  the  RETURN  key;  however, 
one  might  also  continue  through  the  NUMB  function. 

NUMB  reads  the  value  which  is  typed  in  and 
conduct*5  a table  look-up  check  for  a match  between  that 
input  and  any  of  the  array  numbers  or  unique  names.  If 
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there  is  indeed  a match,  the  entire  sequence  for  generating 
a plot  (discussed  above)  is  invoked  without  going  through 
the  CHOOSE  subroutine.  In  effect,  it  executes  a blow-up 
of  the  name  or  numbered  array  choosen.  All  possible  arrays 
can  be  blown-up  at  this  time.  Valid  responses  include: 


1 or  TOT 

2 or  TOTZ 

3 or  COO 

4 or  COOZ 

5 or  CON 


6 or  CONZ 

7 or  TEN 

8 or  TENZ 

9 or  UNC 
10  or  UNCZ 


Finally,  program  PLOT  asks  the  user  if  he 
wishes  another  plot.  A "yes"  response  will  start  him  at 
the  beginning  with  the  call  to  CHOOSE,  and  the  matrix  of 
political  indicators  will  appear.  A "no"  will  exit  from  the 
overlay  and  return  him  to  MAIN  and  to  the  user  commands. 

3.2.5  Primary  Overlay  (5,0)  PROGRAM  TABULAR.  This 
routine  is  a primary  overlay.  It  consists  of  the  program 
TABULAR  and  one  subroutine  DEKODE . DEKODE  is  exactly 
like  subroutine  DEKODE  in  overlay  2,0.  It  is  used  to 
convert  SDATE  and  FDATE  to  the  more  readable  alpha  characters 
used  in  the  headings. 


Program  TABULAR  produces  printed  output  from 
the  arrays  generated  in  Overlay  2.  In  order  to  fit  the  output 
onto  one  CRT  page,  all  tables  are  in  a loop.  If  the  number 
of  rows  is  greater  than  18,  the  tables  are  printed  in  two 
pages  (1  to  18  and  19  to  the  end) . 


The  first  table  printed  includes  output  of  the 
number  of  events,  their  Z-scores,  and  probabilities  for  each 
of  the  TOTAL,  COOPERATIVE,  and  CONFLICTUAL  activities  as 
well  as  the  increment  date.  The  second  table  shows  the 
date,  TENSION,  HREL,  and  their  Z-scores. 

The  user  is  now  asked  if  he  desires  event  fre- 
quencies. If  he  answers  "yes,"  TABULAR  prints  two  more 
tables,  the  first  showing  the  raw  collection  of  cooperative  • 
events,  by  date,  in  their  ten  categories.  The  second  table 
displays  the  conflictual  events,  again  by  date,  in  their 
twelve  categories.  The  overlay  then  returns  to  "ANALYZ " 

(main)  and  again  displays  the  user  commands. 

3.3  Future  Enhancement 


The  prototype  system  will  be  modified  to  ensure  the 
greatest  possible  eode  optimization.  Code  inefficiencies 
were  caused  solely  by  stringent  deadlines  and  were  not 
intended  or  desired.  The  current  utilization  of  random 
FORTRAN  I/O  will  be  either  deleted  or  improved.  The  general 
format  of  all  graphics  will  be  improved.  A decision  will 
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also  be  made  as  to  whether  or  not  to  discontinue  the  use  of 
Plot-10  (AG  II)  and  revert  to  Plot-10  (TCS)  in  order  to  create 
a more  tailored  output  than  can  be  generated  by  the  AG  II 
package.  New  statistical  indicators  will  also  be  incorporated 
to  analyze  expanded  data  bases.  In  short/  the  system  will  soon 
evolve  into  a more  efficient,  more  attractive,  expanded  and 
highly  polished  product. 
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RAM  OUTPUT 


L8 


, — — - — 


mmmttmt  crisis  early  warning  prototype  system  ***t*»t»*****t*  3~  0VERLAY 


THE  CRISIS  EARLY  WARNING  PROTOTYPE  SYSTEM  WAS  DEVELOPED 
FOR  THE  ADVANCED  RESEARCH  PROJECTS  AGENCY'S  CYBERNETICS 
TECHNOLOGY  OFFICE  BY  DECISIONS  AMO  DESIGNS,  INCORPORATED. 

THE  SYSTEM  IS  DESIGNED  TO  SIMULATE  HOW  8UANTITATIVE 
POLITICAL  INDICATORS  MIGHT  HAVE  CONTRIBUTED  TO  THE  U.S. 
DEFENSE  COMMUNITY'S  ABILITY  TO  FORECAST  A NUMBER  OF  IMPORTANT 
INTERNATIONAL  CRISES.  IT  IS  ALSO  DESIGNED  TO  ILLUSTRATE 
HOW  THE  GENERAL  NATURE  AND  DIRECTION  OF  INTERNATIONAL  AFFAIRS 
MAY  BE  MONITORED  USING  POLITICAL  INDICATORS. 


I Subroutine 
"CREDITS" 


OVERLAY  1,0 


THE  FOLLOWING  INTERNATIONAL  CRISIS  CASES  ARE  MOM  AVAILABLE 
ON  THE  DEMONSTRATION  SYSTEM  : 

1.  SIHO  - SOVIET  BORDER  CLASHES, 

JANUARY  , 1967  AND  MARCH  , 1969 


2.  CZECHOSLOVAK  IAN  INVASION, 

AUGUST  , 1966 

3.  INDO  - PAKISTANI  MAR, 

NOVEMBER  , 1971 

THE  SYSTEM  ALSO  CONTAINS  THE  FOLLOWING  OTHER  CASES 


4. 


U.S.  - SOVIET  UNION, 

JANUARY  , 1966  - DECEMBER  , 1975 


_ Subroutine 
"CASE" 


5.  U.S.  - PEOPLES  REPUBLIC  OF  CHINA. 
JANUARY  , 1966  - DECEMBER  » 1975 


6.  SOVIET  UNION  - PEOPLES  REPUBLIC  OF  CHINA, 
JANUARY  , 1966  - DECEMBER  , 1975 


PLEASE  SELECT  ONE  CASE  HUMBER  12 
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***  CZECHOSLOUAK I AN  INUASION  , AUGUST  , 1966  ttt 

PRIMARY  ACTORS  : 

SOUIET  UNION  <USR> 

CZECHOSLOUAK I A (CZE) 

OTHER  ACTORS  : 

UNITED  STATES  (USA) 

PEOPLES  REPUBLIC  OP  CHINA  (CHN ) 

PLEASE  SELECT  TMO  ACTORS  :<E.G.  XXX, YYY  )USR,CZE 

SPECIFY  ACTIUITY  PLOW  : 

B.  ONE  HAY  (USR  >>>  CZE) 

1.  ONE  HAY  (USR  <(<  CZE) 

2.  THO  HAY  (USR  <->  CZE >2 

SELECT  TINE  INCREMENT  : 

1.  MONTHLY 

2.  QUARTERLY 

3.  YEARLY  1 

SET  TIME  PARAMETERS  (JAN66, DECTS)  'JAN68-DEC68 
DO  YOU  DESIRE  30  DAY  PR0BA6LISTIC  FORCASTS  (Y  OR  N)  : 


j 

1 

t 


OVERLAY  1,0 


Subroutine 

"CZEINV” 


_ Subroutine 
"SETUP” 


Subroutine 

"TSETUP” 
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OVERLAY  2,0 


£2 ,fcl0n inability 

J«N,  1 968  - DEC,  1966 
***  US*  <<<>>>  C2E  ttt 

DATE  PROBABILITY 

JAM  68 
PEB  66 
NAP  66 
Aft  66 
NAY  66 
JUKI  66 
JUL  68 
AUG  66 
SEP  68 
OCT  68 
MOV  66 
DEC  66 


.16 
.96 
.76 
.76 
.66 
.46 
.76 
.66 
.46 
• 69 
.61 
.61 


j Subroutine 

"SMLTAB" 
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OVERLAY  0,0 


ttt  USER  COMMANDS  *** 


CASE  COMMANDS: 

I - PLOT  INSTRUCTIONS 
C ■ GRAPHICAL  OUTPUT 
T - TABULAR  OUTPUT 
F ■ PLOW  SELECTION 
A - ACTOR  SELECTION 


OTHER  COMMANDS: 

C • CRISIS  CASES 
E « END  EXECUTION 


SPECIFY  USER  COMMAND: 
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OVERLAY  0,0 


ttt  PLOTTER  INSTRUCTIONS  *** 


UPON  INITIAL  ENTRY  INTO  THE  CRAPH1CS  SECTION,  THE  POLITICAL 
INDICATOR  MATRIX  HILL  BE  DISPLAYED.  THIS  MATRIX  DESCRIBES 
EACH  PLOT  AUAILABLE  TO  THE  USER  AND  IS  HUMBERED  ONE  THROUGH 
TEN  (TEN  POSSIBLE  PLOTS). 

IT  IS  THE  USERS  DECISION  HHICH  PLOTS  ARE  TO  BE  DISPLAYED, 
HOU  MANY,  HHAT  PLOT  TYPE  (BAR  OR  GRAPH),  AND  THE  DESIRED 
POSITION  ON  THE  CRT.  THE  FOLLOWING  ARE  VALID  RESPONSES  TO 
QUERIES  HHICH  IMMEDIATELY  FOLLOW  THE  INDICATOR  MATRIX: 

i>  DO  YOU  WANT  MORE  THAN  ONE  PLOT  PER  GRAPH  (Y  OR  N) 

—THE  ' V ' (YES)  ANSWER  HILL  PROVIDE  THE  USER  HITH  CHOICES 
AUAILABLE  FOR  MORE  THAN  ONE  GRAPH  PLOTTED  ON  A SINGLE 
PAIR  OF  AXIS. 

—THE  'N'  (NO)  ANSWER  MILL  LEAD  THE  USER  THROUGH  A GROUP  OF 
QUESTIONS  THAT  MILL  ALLOW  HIM  TO  GENERATE  FROM  ONE  TO  SIX 
SIMULTANEOUS  PLOTS,  EACH  HAVING  ITS  OWN  AXIS. 


j 


1 


Subroutine 

"INSTRNS" 
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AFTER  AMY  GRAPH  IS  DISPLAYED  THE  SYSTEM  AWAITS  THE  INPUT  OF 
A 'RETURN'  TO  CONTINUE. 


- OR  - 


THE  USER  MAY  SPECIFY  ANY  OF  THE  FOLLOWING  PLOT  HANES  OR 
NUMBERS  TO  CREATE  A BLOW-UP  OF  AN  INDIUIDUAL  GRAPH. 


1 

OR 

TOT 

6 

OR 

COM2 

2 

OR 

TOTZ 

7 

OR 

TEN 

3 

OP 

COO 

8 

OR 

ten: 

4 

OR 

COOZ 

9 

OR 

unc 

5 

OR 

CON 

ie 

OR 

UNC2 

2>  ANOTHER  DISPLAY  (Y  OR  N> 

—THE  'V'  <YES>  ANSWER  MILL  CAUSE  THE  INDICATOR  MATRIX  TO  BE 
RE-DR AMN. 

—THE  'H'  (NO)  ANSWER  MILL  TERMINATE  THIS  OUEPLAY  AND 
RE-INITIATE  THE  'SPECIFY  USER  COHNANO'  SECTION. 


OVERLAY  0,0 


Subroutine 
— "INSTRNS" 
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POLITICAL  INDICATORS 


total 

ACTIVITY 

COOP 

ACTIVITY 

CONFLICT 

ACTIVITY 

TENSION 

LEVEL 

UHCERT 

LEVEL 

RAH  DATA 

1 

3 

5 

7 

9 

Z-SCORE 

2 

4 

€ 

8 

18 

00  YOU  WANT  MORE  THAN  ONE  PLOT  PER  GRAPH  (Y  OR  N> 
YOU  HADE  THESE  CHOICES: 

1 - GRAPHS  1,3  ♦ S 

2 • GRAPHS  2,4  f € 

3 • GRAPHS  7 ♦ 9 

4 ■ GRAPHS  8 ♦ 18 
PLEASE  PICK  ONE  1 


OVERLAY  4.0 


h Subroutine 
"CHOOSE" 
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50  — , 

USSR  « 

TOT 

: 

40  — 

m 

30  — 

20  — 

10  — 

/ / 

•- 

- . 

JAN  FEB  HAft  APR  NAY 


OVERLAY  4,0 


Subroutine  'TITLE' 
I— Subroutine  "LGND' 


Subroutine 

"PLOTIT" 
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§§§ 


OVERLAY  4, 


POLITICAL  INDICATORS 


X.  TOTAL 

X^  ACTIUITY 

COOP 

ACTIUITY 

CONFLICT 

ACTIUITY 

TENSION 

LEUEL 

UNCERT 

LEUEL 

RAH  DATA 

1 

3 

5 

7 

9 

2-SCORE 

2 

4 

6 

— — — 

8 

18 

YOU  WANT  MORE  THAN  ONE  PLOT  PER  GRAPH  (Y  OP  N>  N 
YOU  WANT  GRAPHS  OR  BAR-CHARTS  (G  OR  B>  G 
W MANY  GRAPHS  DO  YOU  WANT  <l-6>  6 


Subroutine 

"CHOOSE" 


PLEASE  TYPE  IN  THE  6 GRAPH  NUMBERS  YOU 
WOULD  LIKE  DISPLAYED  IN  THE  FORM  (1,2, 


S>  1 2 3 4 3 6 


OVERLAY  4,0 


USSR 

TOTAL  ACTIVITY 


1968 


TOT  ACTIVITY  2-SCORE 


► CZECHOSLOVAKIA 

COOPERATIVE  ACTIVITY  CONFUCTUAL  ACTIVITY 


COO  ACTIUITY  2-SCORE 


COH  ACTIVITY  2-SCORE 


1968 


\—  Subroutine  'TITLE" 


_ Subroutine 
"PLOTIT" 


OVERLAY  4,0 


USSR 

TOT  ACTIVITY  Z-SCORE 


1968 


-m •>  CZECHOSLOVAKIA 

COH  ACTIVITY  Z-SCORE  UNCERTAINTY  Z-SCORE 


COO  ACTIVITY  Z-SCORE 


TENSIOH  Z-SCORE 


COHFLICTUAL  ACTIVITY 


AAR  JUA  SEP  DEC 


HAR  JUNSEPDEC 


| — Subroutine  'TITLE" 


Subroutine 

"PLOTIT" 


OVERLAY  4,0 


total  activity 


USSR  -m ► CZECHOSLOVAKIA 

COOPERATIVE  ACTIVITY  CONFLICTUAL  ACTIVITY 


1968 


1968 


TOT  ACTIVITY  Z-SCORE 


1968 


COO  ACTIVITY  Z-SCORE  CON  ACTIVITY  Z-SCORE 


— Subroutine  'TITLE" 


_ Subroutine 
"PLOTIT" 


1968 


OVERLAY  4,0 


USSR  ► CZECHOSLOVAKIA  J— Subroutine 'TITLE" 

TOTAL  ACTIUITY  — 1 


.7 

H 

R — N 


i 


TT 


i r ii,  i — i — i — r 

JAH  FEB  HAR  APR  HAY  JUN  JUL  AUG  SEP  OCT  HOU  DEC 

1968 


Subroutines: 

"PLOTIT" 

"USERS" 

"PTABLE” 


3c 


SSR  «• ► CZECHOSLOVAKIA 

TOT  ACTIVITY  2-SCORE 


.8 


s 

i 

1 

i 

7 

m 

18 

N 

s 

V 

'C 

^ .6 

OVERLAY  4,0 

1 — Subroutine  'TITLE' 
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Subroutines: 

"PLOTIT" 


OVERLAY  5, 


MONTHLY  ACTIVITY 
JAN ■ 1968  - DEC.  1969 


> Subroutine 
"DEKODE" 


*t  USR 

<<<<<< 

TMO-MAY 

FLOW  >>>>>> 

cze  m 

iCTIVITY 

COOPERATIVE  ACTIVITY 

CONFLICTUAL  ACTIVITY 

:-score 

prob 

NUMBER 

2-SCORE 

PROB 

NUMBER 

2 -SC ORE 

PROB 

1.93 

. 18 

1 

1.95 

.81 

8 

8.88 

.81 

3.89 

.58 

2 

3.89 

.18 

8 

8.88 

.81 

8. 12 

.78 

3 

8.12 

.48 

8 

8.88 

.81 

7.81 

.78 

4 

3.32 

.83 

4 

8.88 

.81 

11.38 

.88 

12 

9.89 

.48 

9 

11.72 

.88 

2.55 

.48 

8 

2.87 

.85 

4 

1.97 

. 18 

7.79 

.78 

13 

4.31 

. 18 

24 

12.41 

.88 

3.83 

.68 

28 

3.37 

.28 

28 

5.88 

.68 

3.33 

.48 

28 

3.31 

.28 

13 

1.66 

. 18 

1.24 

.85 

16 

2.83 

.81 

3 

.38 

.81 

.41 

.81 

4 

.18 

.81 

7 

.67 

. 83 

.32 

.81 

8 

.71 

.81 

2 

-.  18 

.81 

OVERLAY  2, 


Subroutine 

"PTABLE" 

Subroutine 

"ZSCORP" 

Subroutine 

"PTABLE" 

Subroutine 

"ZSCORP" 

Subroutine 

"PTABLE" 


r 


OVERLAY  5,0 


NONTHLY  TENSION  AND  UNCERTAINTY 
JAN,  1968  - DEC,  1966 

***  USR  <<<<<<  TWO-MAY  FLOW  >>>>>>  CZE  *** 


DATE 

TENSION 

Z-SCORE 

H-REL 

Z-SCORE 

JAN  68 

0.0 

0.00 

0.000 

0.00 

FEB  68 

0.8 

0.00 

0.000 

0.00 

NAP  68 

0.0 

0.00 

.431 

0.00 

APR  68 

50.0 

0.00 

.561 

6.37 

NAY  68 

42.9 

4.35 

.428 

2.93 

JUN  68 

33.3 

2.51 

.603 

3.76 

JUL  68 

64.9 

4.66 

.774 

4.00 

AUG  68 

38.3 

3. 10 

.772 

3.  17 

SEP  68 

31.7 

1.26 

.379 

1.92 

OCT  68 

23.8 

.80 

.483 

1.41 

NOU  68 

63.6 

2.88 

.331 

1.54 

DEC  68 

20.0 

.45 

.332 

.76 

Subroutine  "DEK00E" 


OVERLAY  2,0 


Subroutine  "ZSC0RP" 
Subroutine  "HREL” 
Subroutine  ''ZSCORP" 

Subroutine  'TENSION” 
Subroutine  "DEKODA” 
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OVERLAY  5,0 

^—Subroutine  "DEKODE 


MONTHLY  COOPERATIVE  ACTIVITY 
JAN,  1968  - DEC,  1968 

***  USR  <<<<<<  TMO-MAY  FLOW  >>>>>>  CZE  *** 


DATE 

YLD 

CNNT 

CNSL 

APPR 

PRMS 

GRNT 

REND 

ACRE 

ROST 

PROP 

JAN  68 

e 

0 

8 

1 

0 

0 

0 

0 

0 

0 

FEB  68 

0 

0 

2 

0 

0 

0 

0 

0 

0 

0 

MAR  68 

e 

1 

2 

1 

1 

0 

0 

0 

0 

0 

APR  68 

e 

0 

2 

1 

0 

0 

1 

0 

0 

0 

MAY  68 

e 

1 

10 

1 

0 

0 

0 

0 

0 

0 

JUN  68 

0 

0 

2 

1 

3 

0 

0 

2 

0 

0 

JUL  68 

2 

0 

6 

1 

1 

0 

0 

0 

2 

1 

AUG  68 

3 

0 

6 

2 

2 

0 

0 

6 

0 

1 

SEP  68 

3 

1 

18 

0 

0 

1 

0 

4 

1 

0 

OCT  68 

1 

1 

12 

0 

0 

1 

0 

0 

1 

0 

NOV  68 

0 

0 

0 

0 

0 

1 

0 

2 

1 

0 

DEC  68 

0 

0 

6 

0 

0 

1 

1 

0 

0 

0 

OVERLAY  2,0 


Subroutine  "DEKODA" 


OVERLAY  5,0 


NONTHLY  CONFLICTUAL  ACTIVITY 
JAN,  1966  - DEC,  1968 

ttt  USP  <<<<<<  T MO-HAY  FLOM  >>>>>>  C2E  t*» 

DATE  RJCT  ACUS  PROT  DENY  DNMD  HAPN  THRT  DENO  RDUC  EXPL  SEIZ  FtCE 


Subroutine  "DEKOOE" 


JAN 
FEB 
NAP 
A PR 
NAY 
JUN 
JUL 
AUG 
SEP 

OCT  __ 
NOU  66 
DEC  68 


66 

68 

68 

68 

68 

66 

68 

68 

68 

68 


8 

8 

e 

e 

8 

8 

3 

1 

8 

8 

8 

8 


8 

8 

8 

2 

7 
1 

8 
12 

8 

2 

4 

2 


8 

8 

8 

8 

8 

1 

1 

1 

1 

8 

8 

8 


8 

8 

8 

8 

1 

2 

1 

1 

8 

8 

8 

8 


8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

1 

8 

8 

1 

8 

8 

1 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

8 

2 

8 

3 

2 

8 

8 

2 

2 

1 

4 

8 

8 

4 

2 

8 

8 

8 

1 

8 

1 

2 

8 

8 

1 

8 

8 

8 

8 

8 

8 

2 

8 

8 

8 

1 

8 

8 

8 

8 

8 

8 

8 

8 

OVERLAY  2,0 


-Subroutine  "DEKODA'1 
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6.0  SYSTEM  FLOW  CHARTS 
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call 

7SETUP 


\ 


/ 


OVERLAY  1,0  (cont.) 
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o 


OVERLAY  4,0  (Primary)  "PLOT" 


OVERLAY  5,0  (cont.) 


7.0  DOCUMENTED  FORTRAN  SOURCE  CODE 


60 


00108 

001 10C 

00120C 

00130C 

00140C 

00150C 

00160C 

00170C 

00180C 

00190C 

00200 C 

002 10C 

00220C 

00230C 

00240C 

00250C 

00260C 

00270C 

00280C 

00290C 

00300C 

06310 

00320+ 

00330C 

00340C 

00330C 

80360C 

00370C 

00380C 

00390C 

00410C 
004 20C 
MU1M 

vu  y ^vv 

00440C 
00430C 
00460C 
00470C 
00480C 
004 90C 
00500C 
005 10C 
00520C 
00530C 
00540C 
00350C 
00560C 
00570C 
00580C 
00590C 
00600C 
006 10C 
00620C 
00630C 
00640C 
00650C 
00660C 

ww  f DV 

00690C 

00700C 

00710C 

00720C 

00730C 

00740 

007500 

00760C 

00770 


OUERLAY(OURLAY,0,0> 

AUTHORS:  L.S. RANDALL  (ORIGIONAL  CODE) 

J.J. ALLEN  (0(CRLAY  4,0)  ORIC. 

J.F.  WITTMEYER  (MODIFICATIONS) 

MAIN  OUERLAY  CALLS  FOUR  PRIMARIES 

1.  OUERLAY  1,0  - PARAMETER  ENTRY  ♦ NATION  CHECK 

2.  OUERLAY  2,0  - DB  READ,  ARRAY  CALCULATIONS 

3.  OUERLAY  4,0  - ALL  GRAPHICS 

4.  OUERLAY  3,0  - TABULAR  0/P 


SUBROUTINE  CALLS  IN  MAIN  OUERLAY 

1)  BLANC  - UNIUERSAL  ROUTINE  TO  CLEAR  PAGE  ON  4051 

2)  CREDITS  - ROUTINE  DISPLAYS  PROGRAMMERS  PURPOSE 

3)  INSTRNS  - ROUTINE  (SHOULD  NOT  BE  IN  MAIN)  GIUES  A QUICK 

DESCRIPTION  OF  HOW  OUERLAY  4,0  WORKS... 


PROGRAM  ANALY2( INPUT, OUTPUT, TAPE3»INPUT,TAPE6*0UTPUT, 
TAPE1 , TAPE43-0UTPUT ) 

OBJECT  I UE:  TO  TABU;  ATE  THE  FREQUENCY,  TENSION,  H-REL,  AND 

Z-SCORES  OF  EUENTS  BETWEEN  TWO  COUNTRIES  OUER  A SPECIFIED 
SPAN  OF  TIME  BY  DAY,  MONTH,  QUARTER,  HALF-YEAR  OR  YEAR. 

WEIS  DATA  ARE  MAINTAINED  IN  A DIRECT  ACCESS  FILE  (PUSC, 

WITH  RECORDS  OF  18  CHARS  EACH: 

YYMMDDI I IEEERRRAAA 
WHERE 

YYMMDD  - DATE 

III  - INITIATOR 

EEE  - EUENT 

RRR  - RECIPIENT 

AAA  - ARENA 

A MONTH  INDEX  FILE  (USCINDX)  FOR  THE  WEIS  DATA  IS  FORMATTED 
AS  A SEQUENTIAL  FILE  WITH  RECORDS  OF  10  CHARS  EACH: 

YYMM  XXXXX 
WHERE 

YYMM  - YEAR  ♦ MONTH 

XXXXX  - INDEX  (RECORD  NO)  OF  FIRST  RECORD  IN  RUSC  WHICH 
INUOLUES  THE  GIUEN  YEAR  ♦ MONTH. 

COMMON  LAYOUT 
PARAM  

Cl  - 'CHARACTER'  INITIATOR 
HI  ■ ALPHA  INITIATOR  (3CHRS) 

ADI  • 3 WD  ALPHA  INITIATOR 

CR  » 'CHARACTER'  RECIPIENT  3 CHRS 

NR  - ALPHA  RECIPIENT  3-CHRS 

ADR  » 3 HD  ALPHA  RECIPIENT 

DUAL  ■ FLOW  DIRECTION  1-2-WAY,  0-ONE  WAY 

SDATE  - 16  START  DATE 

FDATE  • 16  FINAL  DATE 

TCODE  • TIME  INCREMENT  (MONTH,  QTR,  YR) 

SHODE  - Z-SCORE  MODE  (PROGRESS I UE  - 2) 

R - ADDRESS  OF  BEGINNING  SECTOR  OF  SDATE  ON  D.B. 

ISPEED  - BAUD  RATE  FOR  PLOT-10  (1200) 

INI  TAB  • FLAG  FOR  30  DAY  PROBABILITES  1-YES, 2-NO 

IMPLICIT  INTEGER(A-Z) 

DEL  TA-CDATE/ 1 00- IDATE/ 1 00 

COMMON  /PARAM/  Cl, HI, ADI(3>,CR,HR,ADR(3),DUAL, 
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00789+ 
00790 
00800+ 
00810+ 
00820+ 
00830+ 
00840C 
00850C 
00860C 
00870C 
00880C 
00890C 
00900C 
009 10C 
00920C 
08930C 
00940C 
00950C 
00960C 
00970C 
00980C 
00990C 
01000C 
91910C 
01020 
01030C 
01040C 
01030C 
01060C 
01070C 
01080C 
91090C 
01100 
01U0C 
01 120C 
01130C 
01140C 
01150C 
01160C 
01170C 
0U80C 
01190C 
01200C 
81210C 
01220C 
01230 
01240 
01250 
01260 
01270 
01288 
01290C 
01300 
0131 OC 
01320C 
01330 
01340 
01330 
01360 
01370+ 
01380 
01390 
01400C 
91410 
01420 
91430 
91440 
01450 


SDAT E , FDATE , TCOOE , SMODE , R , I SPEED , I M I TAB 
COMMON  /RESLTV  COUNT, IC, DATE (36) , EUENT<22, 36), 

COOP  < 36  > , CONFL  < 36  > , TOTAL  < 36  > , ATOTAL  < 36  > , 
ZTOT AL < 36 >, ACOOP < 36), ZCOOP < 36), ACONFL < 36), 
ZCONFL  < 36 ) , TF  < 36  > , ZST  < 36 ) , HR ( 36 ) , ZSH  < 36  > , 
PTOT AL  < 36  >, PCOOP  < 36  > , PCONFL  < 36  > , RDATE ( 36  > 


COMMON  LAYOUT 
RESULT- 

COUNT  - NUMBER  OF  EUENTS  FOUND 
IC  - NUMBER  OF  ARRAY  ELEMENTS  FILLED 
DATE  • 16  DATES  FROM  SDATE  TO  FDATE 
EUENTS  - 22X36  TOTAL  EUENT  CELLS 

COOP, ACOOP  * COOPERATIVE  EUENTS  ARRAY  INTEGER  ♦ REAL 

CONFL, ACONFL  - CONFLICTIUE  EUENTS  ARRAY  INTEGER  + REAL 

TOTAL, ATOTAL  - TOTAL  EUENTS  ARRAY  INTEGER  + REAL 

ZCOOP, ZCONFL, ZTOTAL  - Z-SCORE  DATA  ARRAYS 

PCOOP, PCONFL, PTOT AL  « PROBABILITY  ARRAYS 

TF  • TENSION  RAN  DATA  ARRAY 

ZST  - TENSION  Z-SCORE  ARRAY 

HR  • HREL  RAH  DATA  ARRAY 

ZSH  « HREL  Z-SCORE  ARRAY 

RDATE  ■ ARRAY  CONTAINING  <DO  MMM>  DATES 

COMHON'POINT/'BP.LSEL,  ISEL 

COMMON  LAYOUT 
POINT- 

BP  - BEGINNING  POINT  EQUAL  TO  IC(1> 

LSEL  - FLOU  SELECTION  1 -ACTORS, 2-FLOWS 
ISEL  > CASE  NUMBER  SELECTION 

COMMON  /CHOICE'  I YOLD, I T , IP, KNTR , PROB ( 36 ) , IGT , IFLG 

COMMON  LAYOUT 
CHOICE— 

I YOLD  - RESET  POINTER  FOR  SUBROUTINE  USERS 

IT  - TYPE  OF  GRAPH  G-GRAPHS, B-BAR  CHARTS, S-SHADED  BARS 

IP  - PROBABILITIES  FLAG  Y-YES,N-NO 

KNTR  • COUNTER  FLAG  FOR  PROBABILITIES 

PROB  ■ ARRAY  CONTAINING  PROBABILITIES 

IGT  - MULTI-GRAPH  FLAG  Y-YES.N-NO 

IFLG  » FLAG  COUNTS  • OF  SINGLE  AXIS  PLOTS  TO  SIX 


CHARACTER* 1 CXXX, REPLY, RESP 
CHARACTER*3  CI,CR 
CHARACTER  AD  I. ADR 
LOGICAL  DUAL 

REAL  ATOTAL, ZTOTAL, ACOOP, ZCOOP, ACONFL, ZCONFL, TF, ZST, HR, ZSH 
REAL  PTOTAL, PCOOP, PCONFL 

DATA  RESP/'Y'/ 


50  CONTINUE 
CALL  BLANC 
HRITEC6, 1001) 

1001  FORMAT (3X,  15<-3H*> , ' CRISIS  EARLY  WARNING  PROTOTYPE  SYSTEM 
15<3H*> , ',  /) 

CALL  CREDITS 
READ  6001,1 

I SPEED  « 120 

33  CALL  OUERLAY  < 'OURLAY ' , 1,0,0) 

CALL  OUERLAY C 'OURLAY' , 2, 0, 0) 

52  CALL  BLANC 
LSEL-0 
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01460 
01470 
01460 
01490* 
01300* 
01510* 
01320* 
01338* 
01540* 
01350 
01560 
01570* 
01580* 
01590* 
01600 
01610 
01620 
01630 
01640 
01630 
01660 
01670 
01680 
01690 
01700* 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
0182  0 
01830 
01840 
01850 
01860 
01870 
01880 
01890 
01900C 
01910C 
01920C 
01930 
01940C 
01950C 
01960C 
01970C 
01980 
01990 
02000 
02018 
02020 
02030C 
02040C 
02050C 
02060 
0206 5C 
82070C 
02000 C 
02083C 
02090 
02100* 
02110* 


ISEL-0 

WRITE<6, 1002) 

1002  FORMAT <22X, 3 < 3H* ), ' USER  COMMANDS 
25X» ' CASE  COMMANDS:  './/. 


,3<3H*>,  ///, 


22X, ' I 
22X, ' G 
22X, ' T 
22X, ' F 
22X, ' A 


St) 


PLOT  INSTRUCTIONS  ',/, 

GRAPHICAL  OUTPUT 
TABULAR  OUTPUT  ',/, 

FLOW  SELECTION  ',/, 

ACTOR  SELECTION  ',/> 

WRITE <6* 1003) 

1803  FORMAT <//, 25X, ' OTHER  COMMANDS:  ', 

22X,'  C « CRISIS  CASES  ',/, 

22X| ' E - END  EXECUTION 
////, 22X,  ' SPECIFY  USER  COMMAND: 

55  READ  6001 , IREPLY 
6001  FORMAT(Al) 

IF< IREPLY. EQ. 1HG)  GOTO  56 
IF< IREPLY. EQ. 1HI)  GOTO  58 
IF< IREPLY. EQ. 1HT)  GOTO  57 
IFUREPLY.EQ.  1HE)  GOTO  500 
IFC IREPLY. EQ. 1HC)  GOTO  53 
IF< IREPLY. EQ. 1HA)  GOTO  54 
IF< IREPLY. EQ. 1HF)  GOTO  59 
1005  FORMAT </,/,2X, 'INCORRECT  COMMAND,  PLEASE', 
' RE-ENTER  <I,G,T,C,A,F  OR  E)'.t) 

GOTO  55 
59  LSEL-2 

CALL  OUERL AY ('OURLAY', 1,0,0) 

CALL  OUERLAYC' OURLAY ',2, 0,0) 

GOTO  32 

56  CALL  OUERLAY< 'OURLAY', 4, 0,0) 

GOTO  32 

57  CALL  OUERLAY< 'OURLAY', 5, 0,0) 

GOTO  52 

54  LSEL-1 

CALL  OUERLAY < ' 0 JRLAY ' , 1,0,0) 

CALL  OUERLAY^  'OURLAY  ',2,0,  0) 

GOTO  32 

58  CALL  INSTRNS 
GOTO  52 

500  CONTINUE 

WRITE <6, 5003) 

5003  FORMAT (2X, ^EXECUTION  TERMINATED. */////) 
END 


9IIRPfHITTMP  ftl  RMr 

OBJECTIUE:  THIS  ROUTINE  WILL  CLEAR  THE  PAGE  ON  ANY 

TEKTRONIX  TERMINAL.  THIS  IS  DONE  USING  TWO  CALLS 
TO  THE  PLOT-18  SOFTWARE... 


CALL  INITTf ISPEED) 
CALL  FINITT<0, 780) 
PRINT,/',/ 

RETURN 

END 


SUBROUTINE  CREDITS 


OBJECTIUE:  TO  INTRODUCE  TO  THE  USER  THE  GENERAL  INTENTION 

OF  THE  PROGRAM. . .ETC. . . 


100  FORMAT < 13X, *THE  CRISIS  EARLY  WARNING  PROTOTYPE  SYSTEM  MAS  *, 
*DEUEL0PED*,/,8X,*F0R  THE  ADUANCED  RESEARCH  PROJECTS  AGENCY'S  t. 
*CYBERNETICS*,/,8X,*TECHN0L0GY  OFFICE  BY  DECISIONS  AND  DESIGNS, 
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SUBROUTINE  INSTRNS 


OBJECTIVE 


WHEN  THE  I OPTION  IS  CHOSEN  THE  USER  GETS  THIS 
INFORMATION  DISPLAYED. .. IT  BRIEFLY  DESCRIBES  THE 
OPERATION  OF  THE  GRAPHICS  OVERLAY 


021 20*  « INCORPORATED.  S> 

02130  WRITE (6* 100) 

02140  101  FORMAT </, 13X, ATHE  SYSTEM  IS  DESIGNED  TO  SIMULATE  HOW  t, 

02130*  AQUANTITATIVEA,/',8X,  APOLITICAL  INDICATORS  MIGHT  HAVE  CONTRIBUTED 
02160*  ATO  THE  U. S. A, /,8X, ADEFENSE  COMMUNITY'S  ABILITY  TO  FORECAST  A, 
02170*  AA  NUMBER  OF  IMPORTANT  A ,/, 8X, A INTERNATIONAL  CRISES.  IT  IS  A, 
02180*  AALSO  DESIGNED  TO  ILLUSTRATEA, /, 8X, AHOH  THE  GENERAL  NATURE  AND  t. 
02190*  ADIRECTION  OF  INTERNATIONAL  AFFAIRSA, ✓ , 8X, AMAY  BE  MONITORED  A, 
02200*  AUSINC  POLITICAL  INDICATORS.  A, ✓,/,/,/> 

02210  WRITE(6,101> 

02220  RETURN 

02230  END 

02240C 
02250C 
02260C 
02270 
02280C 
02290C 
02300C 
023 10C 
023 15C 

02320  100  FORMAT (6X.AUP0N  INITIAL  ENTRY  INTO  THE  GRAPHICS  SECTION,  THE  A 
02330*  AP0LITICALA#/»6X, AINDICATOR  MATRIX  WILL  BE  DISPLAYED.  THIS  A, 
02340*  AMATRIX  DESCRIBES  A,/,6X,*EACH  PLOT  AVAILABLE  TO  THE  USER  AND  A, 
02350*  A IS  NUMBERED  ONE  THROUGH  A,/,6X,ATEN  (TEN  POSSIBLE  PLOTS).  A,.) 
02360  200  F0RMAT<6X, AIT  IS  THE  USERS  DECISION  WHICH  PLOTS  ARE  TO  BE  A, 
02370*  ADISPLAYED,  A,/,6X,AH0H  MANY,  WHAT  PLOT  TYPE  ‘BAR  OR  GRAPH),  AND 
02380*  ATHE  DESIREDA, / , 6X, APOSITION  ON  THE  CRT.  THE  FOLLOWING  ARE  VALID 
02390*  ARESPONSES  TOA, /,6X, AQUERIES  WHICH  IMMEDIATELY  FOLLOW  THE  A, 
02400*  AINDICATOR  MATRIX:  A,') 

02410  300  FORMAT ( 1 IX, A1 ) DO  YOU  WANT  MORE  THAN  ONE  PLOT  PER  GRAPH  «Y  OR 
02420  400  FORMAT (6X, A — THE  'Y'  (YES)  ANSWER  WILL  PROVIDE  THE  USER  WITH  A 
02430*  ACHOICESA, /, 8X, AAVAILABLE  FOR  MORE  THAH  ONE  GRAPH  PLOTTED  ON  A A, 
02440*  AS INGLE A, 8X, APAIR  OF  AXIS.A,/) 

02450  500  FORMAT (6X. A--THE  'N'  <NO)  ANSWER  WILL  LEAD  THE  USER  THROUGH  A, 
02460*  AA  GROUP  OF  A , / , 8X , AQUEST I ONS  THAT  HILL  ALLOW  HIM  TO  GENERATE  FROM 
02470*  AONE  TO  SIXA, 8X, ASIMULTANEOUS  PLOTS,  EACH  HAVING  ITS  OWN  AXIS. 
02480  600  FORMAT < 6X, A AFTER  ANY  GRAPH  IS  DISPLAYED  THE  SYSTEM  AWAITS  THE 
02490*  A INPUT  0FA,/,6X,AA  'RETURN'  TO  CONTINUE. A, /, /) 

02500  605  F0RMATC3IX, A-  OR  - A,/,') 

02510  700  FORMAT < 6X, ATHE  USER  MAY  SPECIFY  AHY  OF  THE  FOLLOWING  PLOT  A, 
02520*  ANAMES  ORA, 6X, ANUMBERS  TO  CREATE  A BLOW-UP  OF  AN  INDIVIDUAL  A, 
02530*  AGRAPH.  A,/) 

TOT 


02540  800  FORMAT < 10X, A1 


OR 


OR 


10X, A2 

OR 

T0T2 

7 

OR 

TENA,/, 

10X.A3 

OR 

COO 

8 

OR 

TENZA,/, 

10X, A4 

OR 

C002 

9 

OR 

UNCA, ', 

10X.A5 

OR 

CON 

10 

OR 

UNC2A. /) 

COM2 A, /, 


02590  810  FORMAT n IX, A2>  ANOTHER  DISPLAY  <Y  OR  N)  A,/> 

02600  820  FORMAT(6X, A— THE  'Y'  (YES)  ANSWER  WILL  CAUSE  THE  INDICATOR  A, 
02610*  AMATRIX  TO  BEA, /, 8X, ARE-DRAWN.  A,',-', 

02620*  6X,A— THE  'N'  (NO)  ANSWER  WILL  TERMINATE  THIS  OVERLAY  AND  A,/, 
02630*  8X, ARE-INITIATE  THE  'SPECIFY  USER  COMMAND  SECTION. A, O 


02640  10  FORMAT (20X,3(3HA>, 
02650  830  FORMATS, /,/,/) 


PLOTTER  INSTRUCTIONS  ' , 3( 3HA) , /, /> 


02660 

02665C 

840 

FORMAT (/,  /> 

02670 

CALL  BLANC 

02680 

WRITE(6, 10) 

02690 

WRITE (6, 100) 

02700 

WRITE(6, 200) 

02710 

WRI TE(6, 300) 

02720 

WRI TE(6, 400) 

02730 

WRITE (6, 500) 

02740 

WRI TE(6, 830) 

02750 

RE AD (5, 6001 > I 

02760 

6001 

FORMAT (A1 ) 

02770 

CALL  BLANC 
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92788 
02798 
92689 
02810 
02820 
02830 
02840 
92890 
02860 
02870 
02880 
0289OC 
02900C 
929 16C 
02920 
92930C 
02940C 
02959C 
02960C 
02970C 
02980C 
02990C 
03000C 
030 10C 
03020C 
03030C 
03040 
03090C 
03060C 
03070C 
03080C 
O3890C 
031O0C 
03110C 
03120C 
03130C 
03140 
03190C 
03160 
03170* 
03180 
03190C 
03200C 
032 10C 
03220C 
03230C 
03240C 
03290C 
03260C 
03270C 
03260C 
03290C 
03300C 
03310C 
03320C 
03330C 
03340C 
03350C 
03360C 
03370C 

03389 

03390 
03400 
03410 
03420 
03430C 
03440 
03490 


HR I TEC 6*  840) 
HR  I TEC 6* 600) 
HRITE(6»605) 
HRITE(6,  700) 
HR I TEC 6. 880) 
UR1TE(6,810> 
HPITE(6» 820) 
HRITEC6. 840) 
REA0C5, 6001)1 
RETURN 
END 


OVERLAY (OURL AY, 1,0) 

OBJECTIVE: 

TO  EXECUTE  THE  SELECTION  OF  PARAMETERS.  THIS  OVERLAY  DOES: 

1)  PRINTS  CASES  AND  READS  SELECTIONS 

2)  PRINTS  SELECTED  CASE  HEADINCS  AND  ASKS  FOR  COUNTRY  PAIR 

3)  ASKS  FOR  FLOH  DIRECTION 

4)  ASKS  FOR  TIME  INCREMENT 

5)  ASKS  FOR  START  DATE  CSDATE)  AND  FINISH  DATE  CFDATE) 

6)  READS  DATE  INDEX  FILE  ♦ CHECKS  FOR  VALID  DATE 

7)  READS  NATION  FILE  ♦ CHECKS  FOR  VALID  ID'S 

PROGRAM  DIALOG 
SUBROUT  I MES 

1 ) NCODE  - RETRIEVES  NUMERIC  ID  AND  ALPHA  DESCRIPTOR  OF  ACTORS 

2)  CASE  - PRINTS  OUT  CASE  MENU  AND  SELECTION 

3)  SETUP  - ASKS  FOR  COUNTRY  PAIRS,  FLOH  DIRECTION  * TIME  INCRE 

4)  TSETUP  - ASKS  FOR  SDATE  AND  FDATE 

5)  SSBC, CZEINV, INDUAR, USSOV, USPEO, SOVPEO  - ALL  PRINT  CASE  HEAD 


IMPLICIT  1N7EGERCA-2) 


COMMON  /PARAM/  C I , NI , ADI (3) , CR, NR, ADR( 3) , DUAL , 

SDATE, FDATE, TCODE , SHODE , R , I SPEED, IHITA8 
CONHON/POINT'BP.LSEL,  ISEL 


MAJOR  PARAMETERS: 

LSEL  - SET  IN  MAIN  0.0 

1 ■ IF  ACTOR  SELECTION 

2 » FLOH  ONLY  SELECTION 
ISEL  - 1,2, 3, 4. 5 OR  6 CASE  SELECTION 
DUAL  - TRUE  ■ 2-HAY  FLOH 

FALSE  ■ 1 HAY  FLOH 
INAT.NI , Cl  - INITIATOR 
JNAT , NR, CR  » RECIPIENT 
FLOH  - 0 ■ <<<<<<  REUERSE  DIRECTION 

1 - >>>>>>  OK  AS  IS 

2 « THO  HAY  FLOH 
SDATE  ■ START (BEG INNING)  DATE 
FDATE  - END  (FINAL)  DATE 

SMODE  ■ ALHAYS  SET  TO  (2)  PROGRESSIVE  Z-SCORES 
TCODE, HOY  - TIME  INCREMENT  SELECTED 
R - RECORD  NUMBER  OF  SDATE  IN  DATA  BASE 

CHARACTERS  Cl , CR,  ALL,  INAT,  JNAT 
CHARACTERS  CXXX, REPLY, RESP 
CHARACTER  AD  I, ADR 
CHARACTER* 10  ANY(3) 

LOGICAL  DUAL 


DATA  RESP/'Y'-' 

DATA  AMY ✓ ' ANY  COUNTR ' , ' Y ' , ' '✓ 
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DATA  ALL/'ALL'' 
roi  l ri  auc 

IF<LSEL.EQ.2>  GOTO  295 
IF<LSEL.NE. l>  GOTO  201 
MRITE<6,2001> 

2001  FORMATS, /,2X,  'PLEASE  SELECT  ONE  CASE  NUMBER  :',t> 

203  READ<5,  > ISEL 

IFUSEL.GE.  l.A.  ISEL.LE.6)  GOTO  202 
MRITE(6.  2002) 

2002  F0RHAT(2X»  SINCORRECT  CASE  NUMBER.  PLEASE  RE-ENTER  »,t> 
GOTO  203 

201  CONTINUE 

CALL  CASE < ISEL > 

202  CALL  BLANC 

GOTO  < 30 1 , 302 , 303 , 304 , 305 , 309  > , I SEL 

301  CALL  SSBC 
GOTO  306 

302  CALL  CZEINU 
GOTO  306 

303  CALL  INDUAR 
GOTO  306 

304  CALL  USSOU 
GOTO  306 

303  CALL  USPEO 
GOTO  306 
309  CALL  SOUPEO 
306  CONTINUE 
308  CONTINUE 

CALL  SETUP< ISEL* INAT » JNAT, FLOW, HQY > 

DUAL-. FALSE. 

IF (FLOW. EG. 2) DUAL-. TRUE. 

CALL  T SETUP (SDATE.FDATE) 

GOTO  204 

205  CALL  SETUP ( I SEL . I NAT . JNAT . FLOW . MQY  > 

DUAL-. FALSE. 

IF<FLOU.EQ.2)DOAL«.TRUE. 

204  IF(MQY.NE.l)  GOTO  307 
MRITE<6,  3001 ) 

3001  FORMAT ( ' , 2X , *D0  YOU  DESIRE  30  DAY  PROBABLISTIC  t, 

► tFORCASTS  (Y  OR  N>  : *,t) 

READ<3*  3003) IREPLY 
307  INI  TAB-0 

IFC IREPLY. EQ. 1HY)  INITAB-1 
100  CONTINUE 

WRITE (6. 3004) 

3004  FORHAT<20X,'  . . .PROCESSING.  . . ',) 

3003  FORMAT <A1 ) 

Cl-INAT 

IF<CI . NE. ALL)  GO  TO  105 
NI-0 

DO  104  1-1,3 
ADKI)-ANY(I) 

104  CONTINUE 
GO  TO  110 
103  CONTINUE 

' CALL  HCOD£(CI . NI , ADI ) 

IF<NI.NE.0>  GO  TO  110 
MR I TE ( 6 , 900 1)1 NAT 

9001  FORMAT  < ' «»  ILLEGAL  ACTOR  - ',A3,  ' ttt  ',/> 

GOTO  308 
110  CONTINUE 


1003  FORMAT < ' INITIATOR  IS  ',3A10/> 
120  CONTINUE 
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04140  CR-JNAT 

041 SBC 

04160  IFCCR. NE. ALL)  CO  TO  125 

04170  MR-0 

04180  00  124  1-1,3 

04190  ADft< 1 )-ANY< I ) 

04200  124  CONTINUE 

04210  CO  TO  130 

04220  12S  CONTINUE 

04230C 

04240  CALL  NCOOE  < CR » NR , ADR  > 

04250c 

04260  I F < NR . NE . 0 > GO  TO  130 

04270  UR I TEC 6, 9001 ) JNAT 

04280  GOTO  308 

04298  130  CONTINUE 

04300C 

04310  1005  FORMAT < ' RECIPIENT  IS  ',3A10/-> 

04320C 

04330  1006  FORMAT < ' CAN  ROLES  BE  REVERSED ',t) 

04340C 

04350  160  CONTINUE 

04360C 

04370  CALL  PFURC3HRET, 1 , 6HRHINDX, 0) 

04380  REWIND  1 

04390C 

04400  YM-SDATE/100 

044 10C 

04420  165  CONTINUE 

04430  REAOC 1,3002, END-166)  YYMM, R 

04440  3002  FORMAT (I 4, 16) 

04450  IFCYYMM. NE. YH)  CO  TO  165 

04460  CO  TO  167 

044 70C 

04488  166  CONTINUE 

04490  HRITEC6, 9005) 

04500  9005  FORMATS'  ttt  START  DATE  DOES  NOT  APPEAR  IN  MEIS  DATA.'/) 

04510  GO  TO  160 

04520C 

04530  167  CONTINUE 

04540C 

04550  170  CONTINUE 

04560  TCODE-MOY 

04570  IFCTCOOE. GE. 1 . AND. TCODE.LE. 3)  CO  TO  180 

04580C 

04590  180  CONTINUE 

04600C 

04610  IFCFDATE. GE. SDATE)  GO  TO  190 

04620  190  CONTINUE 

04640  191  CONTINUE 

04650  1010  FORMAT </'  SELECT  MODE  FOR  COMPUTING  2-SCORES  ', 

04660*  '< 1-NORMAL, 2-PROGRESSIUE):  ',T) 

04678  2004  FORMAT  *11) 

04680  SMODE  • 2 

04690C 

04700  9004  FORMAT < ' ttt  ILLEGAL  MODE  — TRY  AGAIN.'/) 

047 10C 

04720  END 

04738C 
04740C 
04750C 

04760  SUBROUTINE  NCODEC ACODE , MID, DESCR) 

04770C 

04780C  08JECTIUE:  TO  DETERMINE  THE  NUMERIC  ID  AMD  THE  DESCRIPTOR 

04790C  CFULL  NAME)  FOR  THE  COUNTRY  SPECIFIED  BY  A GIUEN  ALPHABETIC 

04800C  CODE. 

04810C 
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04820C 

04830C 

04840C 

04830C 

84860C 

04870C 

04880C 

04890C 

04900C 

049 10C 

04920C 

04930C 

04940C 

0495BC 

04960 

04970C 

04980 

04990 

0300O 

050 10C 

05020C 

05630 

0S040C 

05050 

05060C 

05070 

03080 

05090 

03100 

05110 

03120C 

05130 

05140 

0515O 

05160 

05170 

05180C 

05190 

05200 

0521O 

05220C 

05230C 

05240C 

05250 

0S260C 

05270C 

05280C 

05290C 

05300C 

053 10C 

05320 

05330 

05340* 

05350* 

05360 

03370 

05380* 

05390 

05400 

05410* 

05420 

03430 

05440* 

05450 

05460 

05470 

05480 

05490* 


ACODE  - THREE  CHAR  ALPHABETIC  CODE. 

HID  - THREE  DIGIT  NUMERIC  ID  <SET  BY  NCOOE>.  SET  TO  0 
IF  ACODE  IS  NOT  A UAL  ID  CODE. 

DESCR  - THIRTY  CHAR  DESCRIPTOR  (SET  BY  NCOOE>. 

COUHTRY  ID  DATA  (NATION)  ARE  ASSUMED  FORMATTED  IH 
RECORDS  OF  38  CHARS  EACH: 

NNN  AAA  DDDDDDDDDDDDDDDDDDDDDDDDDDDDDD 

< 39  - — -> 

WHERE 

NNN  - NUMERIC  ID 

AAA  - ALPHABETIC  CODE 

DD...D  - DESCRIPTOR  (FULL  COUNTRY  NAME) 

IMPLICIT  INTEGER(A-Z) 

CHARACTER* 1 S1,S2 
CHARACTER*3  AAA, ACODE 
INTEGER  DDD(3),DESCR(3> 


CALL  PFUR ( 3HRET , 1 , 6HNAT I OH , 0 ) 

NID-0 

100  CONTINUE 

READ (1,1 001, END-200)  NNN, SI . AAA, S2,  (DDD(I),  1*1,3) 
1001  FORMAT (I3,A1,A3,A1,3A10) 

1F( AAA. EQ. ACODE)  GO  TO  150 
GO  TO  100 

150  CONTINUE 
NID-NNN 
DO  160  1-1,3 
DESCR  (I  >-000  U> 

160  CONTINUE 

200  CONTINUE 
RETURN 
END 


SUBROUTINE  CASE(ISEL) 

OBJECT  I UE*. 

TO  DISPLAY  6 CASE  MENU  AHD  RETURN  'ISEL'  UARIABLE.  'ISEL' 
SHOULD  BE  AN  INTEGER  FROM  1 TO  6 DENOTING  THE  CASE  NUMBER 
SELECTED.. . 

WRITE(6, 1001 > 

1001  F0RMAT(4X,*THE  FOLLOWING  INTERNATIONAL  CRISIS  *, 
tCASES  ARE  NOW  AVAILABLE  *,/,4X,*0N  THE  DEMONSTRATION  *, 
tSYSTEM  : *,✓> 

WRITE (6, 1002) 

1002  FORMA T(6X, *1 . *, 2X, *SINO  - SOVIET  BORDER  CLASHES,*, 

' , 18X, * JANUARY  , 1967  AND  MARCH  , 1969  *, ') 

WRITE (6, 1003) 

1003  FORMAT (6X, *2. *, 2X, *CZECHOSLOVAKIAN  INVASION,  *, 

10X, {AUGUST  , 1968  *,/> 

WRITE(6, 1004) 

1004  FORMAT <6X, *3 . *, 2X, * INDO  - PAKISTANI  WAR,  *. 
s, 10X,*NOVEMBER  , 1971  *,/> 

WRITE(6, 1005) 

1005  FORMAT (4X, *THE  SYSTEM  ALSO  CONTAINS  THE  FOLLOWING  OTHER  CASE 
WR I TE  ( 6 , 1 006  ) 

1006  FORMAT (6X, *4 . *, 2X, *U. S.  - SOVIET  UNION,  *, 

✓,10X, {JANUARY  , 1966  - DECEMBER  , 1975  *,') 
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•SSM 

03310 

03320+ 

03330 

03340 

05550+ 

03360 

05570 

05500 

03590 

03600 

03610 

05620 

03630 

05646 

03650 

05660C 

036 70C 

05680C 

03690 

05700C 

037 10C 

05720C 

05730C 

03740C 

05750C 

03760C 

05770C 

03780C 

05790C 

03800C 

03810C 

03820C 

03830C 

03840 

05850 

05860+ 

05870 

03880 

05890 

05900 

03910 

03920 

03930 

03940 

03950 

03960 

03970 

03980 

05990 

tKLSMCk 

06010 

06020 

06030 

06040 

06050 

06060 

06870 

06000 

06096 

06100 

06110 

06120 

06130+ 

06140+ 

06130+ 

06160 

06170 


||A  t TP  / £ 1 AA9  \ 

1007  F0£MAT<6X,*5.*,2X,*U.S.  - PEOPLES  REPU^IC  Of  CHIMP,  t, 

10X,t JANUARY  , 1966  - DECEMBER  , 1975  t,'> 

1010  FORMAT < 6X?*6 . * * 2X , t SOU IET  UN 1 OH  - PEOPLES  REPUBL I C OF  CHIMP, 
/, 10X,* JANUARY  , 1966  - DECEMBER  , 1975  *,'> 

10  URITE(6  1008) 

1008  FORHPT </■« 4X, tPLEPSE  SELECT  ONE  CPSE  HUMBER  :*,t> 

READ(5, ) ISEL 

IF < ISEL. GE. 1 .A. 1SEL.LE.6)  GOTO  20 


1009  FORMAT (lift INCORRECT  CPSE  HUMBER,  PLEASE  RE-ENTER  *> 


GOTO  10 
20  CONTINUE 
RETURN 
END 


SUBROUTINE  SETUP (SEL, IN, JN,FL,M0> 

OBJECT I UE: 

TO  GATHER  THE  FOLLOWING  INPUT  FROM  THE  USER: 


IN 

JN 

FL 


'XXX' 

'YYY' 


INITIATOR  IN  FORM 
RECIPIENT  IN  FORM 
ACTIUITY  FLOM 

0  ■ >>> 

1  • <<< 

2  ■ <-> 

MO  ■ TIME  INCREMENT 
1-  MONTHLY 
2 • QUARTERLY 

(NOTE)  CODE  FOR  DAILY  AND  1'2  YRLY  STILL  INTACT 
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IMPLICIT  INTEGER  <A-Z> 

COMMON  /PARAH/  C I , HI , ADI (3) ,CR, MR, ADRC3) , DUAL , 

.n„nu  SDATE , FDATE , tCOOE , SMODE , R , I SPEED , I N I TAB 

COMMON  /'POINT''  BP,LSEL,IS£L 
CHARACTERS  IN,JN,TN 
CHARACTERS  CI.CR 
IF(LSEL.E0.2>  GOTO  15 

IF(SEL. EO. 4. 0. SEL. EO. 3. 0. SEL. EQ. 6)  GOTO  10 
WRITE <6, 1001) 

1Ml  SELECT  TWO  ACTORS  :<E.G.  XXX, YYY  )»,t> 

READ (3, 2001 ) IN, JN 
2001  F0RMAT<A3, IX, A3) 

10  CHUT  T Ml  IP 

G0T0( 13,13,13,11,12,14), SEL 
IN-'USR' 

JN*'CHN' 

GOTO  13 
IM*'USA' 

JN* ' USR ' 

GOTO  13 

12  IN*'USA' 

JN»'CHH' 

13  CONTINUE 
GOTO  16 

15  IN-CI 
JN*CR 

16  CONTINUE 

WRITEC6, 1002) IN, JN, IN, JN.IN.JN 
1002  FORMATS,  2X,  SPECIFY  ACTIUITY  FLOW  : *,✓, 

6X,*0.  ONE  WAY  <*,A3,»  >>>  *, A3, *>*,/, 

6X, *1 . ONE  HAY  (S,A3,t  <«  *, A3, *>*,/, 

6X,*2.  TWO  WAY  <*,A3,*  <->  *,A3,t)*,t) 

20  CONTINUE 
READ(3, >FL 
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06180 
06190 
06200 
06210 
06220 
06230 
06240 
06250 
06260 
06270 
06280 
06290 
06300 
06310 
06320 
06330+ 
06340 
06358 
06360 
06370 
06380 
06390 
06400 
06410 
06420C 
06430C 
06440C 
06450 
06460C 
06470C 
06480C 
064 90C 
06500C 
06S10C 
06520C 
06530C 
06540C 
06550C 
06560C 
06570 
06580 
06590 
06600+ 
86610+ 
06620 
06630 
06640 
06650 
06660 
06670 
06680 
06690 
06700 
06710 
06720 
06730 
06740 
06750 
06760 
06770 
06780 
06790 
06000 
06810 
06820 
06830 
06840 
06850 


2002  FORMATCI!) 

IF(FL.GE.0.A.FL.LE.2>  GOTO  30 
WRITE<6, 1003) 

1003  FORMAT <2X, tINCORRECT  FLOW  HUMBER,  PLEASE  RE-EHTER  *> 

GOTO  20 

30  IF <FL. HE. 1 > G0T0  31 
TH«IN 

IH-JH 

JN-TN 

31  CONTINUE 
IF<LSEL.NE.2)  GOTO  32 
MQ-TCODE 

RETURN 

32  WRITE(6, 1004) 

1004  FORMATS, 2X,*SELECT  TIME  INCREMENT  it,/, 

6X,*1.  MONTHLY  *,/,6X,*2.  QUARTERLY  *,/,6X,*3.  YEARLY*, 6X,t) 
READf  5, )MQ 

IF<MC.GE. 1.A.MQ.LE.3)  GOTO  40 
WRITE (6, 1005' 

1005  F0RMATC2X, tINCORRECT  TIME  INCREMENT,  PLEASE  RE-ENTER*) 

GOTO  30 

40  CON TINE 
RETURN 
END 


SUBROUTINE  TSETUP< I DATE, JOATE> 

06  JFCT I UE * 

TO  READ  IN  PARAMETERS  FM, FY,  SM,  SY,  WHICH  ARE  THE  'FIRST  MONTH'' 
'FIRST  YEAR', 'SECOND  MONTH' ,' SECOND  YEAR',  RESPECTIVELY . 

TO  CHECK  THESE  MONTHS/YEARS  FOP  VALIDITY  AND  CONVERT  THEM  FROM 
3-DIGIT  ALPHA  TWO  DIGIT  NUMERIC  TO  SIX  DIGIT  NUMERIC.  I.E. 

JUN  77  - MAY  78  TO  770601  - 780531 


MAJOR  PARAMETERS 

IDATE  - 'SDATE  RETURNED  IN  FORM  YYMMDD 
JDATE  - 'FDATE'  RETUPNED  IN  FORM  YYMMDD 

INTEGER  FM, FY, FD. SM, SY, SD, PNC, SMC 
DIMENSION  HONTHS< 12) 

DATA  MONTHS  '3HJAN, 3HFEB, 3HMAR, 3HAPR, 

3HMAY , 3HJUN, 3H JUL , 3HAUG, 

3HSEP, 3N0CT, 3HN0U, 3HDEC' 

FD-01 

SD-31 

10  WRITE <6, 1001) 

1001  FORMAT (v,  2X, *SET  TIME  PARAMETERS  < JAN66, DEC75)  :*,t) 
READ (5, 2001 )FM, FY, SM, SY 

2001  F0RMAT<A3, 12, IX, A3, 12) 

FMC-0 

DO  20  1-1,12 
IF<FM. EQ. MONTHS ( I ) )FMC-I 
20  CONTINUE 

IFCFMC . NE. 0)  GOTO  30 
WRITEC6, 1082) 

1002  FORMAT (2X, tFIRST  MONTH  INCORRECT,  PLEASE  RE-ENTER  *> 
GOTO  10 

30  SMC-0 

DO  40  1-1,12 
IF<SM. EQ. MONTHS < I ) >SHC- I 
40  CONTINUE 

IF(SMC.NE.0)  GOTO  50 
WRITE (6, 1003) 

1003  FORMAT C2X,*SEC0ND  MONTH  INCORRECT,  PLEASE  RE-ENTER* 
GO  TO  10 

50  CONTINUE 

IF(FY.GE.66.A.FY.LE.75>  GOTO  60 
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06860  URITE(6t 1004  > 

06970  1004  F0RHAT(2X,(YEAR  PARAMETER  MOT  WITHIN  DATA  BASE  (, 

06880+  (,  PLEASE  RE-ENTER  (> 

06890  GOTO  10 

06900  60  CONTINUE 

06910  IF(SY.GE.66. A.SY.LE.73)  GOTO  70 

06920  MRI TE(6* 1004 ) 

06930  GOTO  10 

06940  70  CONTINUE 

06950  IDATE-(((FY(1 0090 )+<FMC( 100) >+FD> 

06960  JDATE- < ( < SY( 1 0000 )+(SMC(100)  >+SD> 

06970  RETURN 

06980  END 

06990C 

07000C 

070 10C 

07020  SUBROUTINE  SSBC 

07039C 

07040C  OBJECTIUE  - PROUIDE  HEADING  IF  ISEL  - 1 
07050C 

07060  WRITEC6, 1001) 

07070  1001  FORMAT <2X»  3< 3H* ) » t SINO  - SOUIET  BORDER  CLASHES  , (, 

07080+  t JAN  , 1967  AND  MARCH  , 1969  (, 3< 3HO , ' ) 

07090  WRITE<6, 1002) 

07100  1002  FORMAT (6X»  (PRIMARY  ACTORS  : ( 

07110+  10X> (PEOPLES  REPUBLIC  OF  CHINA  <CHN>  1,', 

07120+  10X» (SOUIET  UNION  CUSR)  (,/* 

07130+  6X, (OTHER  ACTORS  : (,/* 

07140'  10X« (UNITED  STATES  (USA)  (,/) 

07130  RETURN 

07160  END 

07170C 

07180C 

07190C 

07200  SUBROUTINE  C2EINU 

0721 0C 

07220C  OBJECTIUE  - PROUIDE  HEADING  IF  ISEL  • 2 

fl7jiar 

07240  MRITEC6, 1001) 

07230  1001  FORMAT <2X, 3(  3H( > . * C7ECH0SL0UAK I AN  INUASION  , (, 

07260+  (AUGUST  , 1968  (,3<3Ht),/> 

07270  WRITE<6, 1002) 

07280  1002  F0RMATC6X, (PRIMARY  ACTORS  : (,✓, 

07290+  10X, (SOUIET  UNION  (USR)  (,/, 

07300+  10X, (CZECHOSLOUAKI A (CZE)  (,/, 

07310+  6X, (OTHER  ACTORS  \X,', 

07320+  10X, (UNITED  STATES  (USAX,/, 

07330+  10X, (PEOPLES  REPUBLIC  OF  CHINA  (CHN)  (,/) 

07348  RETURN 

07350  END 

07360C 
07370C 

87380c 

07390  SUBROUTINE  INDWAR 

07400C 

07410C  OBJECTIUE  - PROUIDE  HEADING  IF  ISEL  - 3 
07415C 

07420  MRITE(6, 1001) 

07430  1001  F0RHAT<2X,3(3H(),(  INDO  - PAKISTAN  WAR  ,(, 

07440+  (NOUEMBER  , 1971  (,3<3H*>,/> 

07430  WRITE<6, 1002) 

07460  1002  F0RHATC6X, (PRIMARY  ACTORS  :(,✓, 

07470+  10X, (INDIA  (INDX,/, 

07480+  10X, (PAKISTAN  (PAKX,/, 

07490+  6X, (OTHER  ACTORS  :(,/, 

07300+  10X, (UNITED  STATES  (USAX, 

07310+  10X,  (SOUIET  UNION  (USRX,/, 

07320+  10X, (PEOPLES  REPUBLIC  OF  CHINA  (CHNX,', 
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10X,*BANGLADESH  <BGD>t,'> 

RETURH 

END 


SUBROUTINE  USSOU 


06JECTIUE  - PROUIDE  HEADING  IF  ISEL  - 4 
HRITEC6, 1001) 

1001  F0RMAT<2X,3C3H*>,*  U.S.  - SOUIET  UNION 
t JAN  , 1966  - DEC  , 1975  *,3<3H*>,/> 
HRITEC6, 1002) 

1002  FORMAT (6X,  tACTORS  : USA  , USR  t,/> 
RETURN 
END 


SUBROUTINE  USPEO 

OBJECTIUE  - PROUIDE  HEADING  IF  ISEL  » 5 
HR  I TEC  6* 1001) 

1001  FORMAT  <2X,  3<  3Ht ) , t U.S.  - PEOPLES  REPUBLIC  OF  CHINA  , t, 
t JAN  , 1966  - DEC  , 1975  t, 3<3Ht), ✓ ) 

HR  I TEC 6> 1002) 

1002  FORMAT C6X, tACTORS  : USA  , CHN  *,/> 

RETURN 

END 


SUBROUTINE  SOUPEO 

OBJECTIUE  - PROUIDE  HEADING  IF  (SEL  - 6 
HRITEC6, 1001) 

1001  FORMAT ( , 3( 3Ht ) « t SOUIET  UNION  - PEOPLES  REPUBLIC  OF  CHINA 
* JAN  , 1966  - DEC  , 1975  t,3C3Ht>,/> 

HRITEC6, 1002) 

1002  FORMAT C6X,  tACTORS  : USR  , CHN  *,/•> 

RETURN 

END 


OUERL AY ( OURLAY i 2 » 0 ) 

OBJECTIUE: 

.TO  READ  THE  DATA  BASE  AND  EXTRACT  ALL  QUALIFIED  DATA  AND  PLAC 
INTO  NEUENT  ARRAY. 

.TO  DETERMINE  NO.  OF  QUALIFIED  EUENTS  MITHIN  TIME  PERIOD,  IN 
INCREMENT  AND  TO  COUNT  THEM. 

. TO  CREATE  ARRAYS  AS  FOLLOHS: 

COOP  - COOPERATIUE  EUENTS 

CONFL  - CONFLICTUAL  EUENTS 

TOTAL  - TOTAL  COOPERATIUE  ♦ CONFLICTIUE 

TF  - TENSION  LEUELS 

HR  - h-RELS 

.TO  CREATE  A Z-SCORE  ARRAY  FOR  EACH 
.TO  CREATE  A PROBABILITY  ARRAY  FOR  EACH 

.TO  PRODUCE  A 30-DAY  PROBABILITY  TABLE  IF  REQUESTED  IN  OULY  1 
.TO  PRODUCE  RDATE  ARRAY  OF  READABLE  DATES  IN  FORM  MMM  YY 
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082 10C 
08220C 
08230C 
08240C 
08230C 
88260C 

082 rec 

08280C 

08298C 

08300C 

083 10C 

08320C 

08330 

08340C 

08350C 

08360C 

08370C 

08380C 

08390C 

08400C 

084 10C 

08420C 

08430C 

68440C 

08450C 

08460C 

08470C 

08480C 

I 08490C 

08300 
083 10C 
08520 
08330+ 
08340 
08530+ 
08560+ 
08370+ 
08580+ 
08390 
08600 
086 10C 
08620 
08630 
08640 
08650 
08660 
08670 
08680 
08690 
08700C 
08710 
08720C 
08730 
08740 
08750C 
08760 
08770C 
08780 
08790 
88800C 
08810 
08820 
08830 
08840 
08850 
08860 
08870 
08880C 


SUBROUTINES  — 

2SC0RP  - CALCULATE  2-SCORES 

TENSION  - CALCULATE  TENSION 

HREL  - CALCULATE  H-RELS 

CONURT  - CONUERT  INTEGER  TO  REAL  ARRAYS 

PTABLE  - ASSIGN  PROBABILITIES 

NXTINC  - NEXT  TINE  INCREMENT  FUNCTION 

SMLTAB  - PRINT  30-DAY  PROBABILITY  TABLE 

DEKODE  - RETURN  ALPHA  YEAR  + MONTH 

DEKODA  - RETURN  ALPHA  DATE  ARRAY 


PROGRAM  SEARCH 

MAJOR  PARAMETERS 

MAX  - MAXIMUM  NUMBER  OF  PERIODS 

MAXREC  « LAST  SECTOR  OF  DATA  BASE 

RUSD  - FILENAME  OF  DATA  BASE  (LOGICAL  UNIT  1) 

JR  * 1ST  RECORD  OF  DATA  BASE 

R * RECORD  CORRESPONDING  TO  SDATE  IN  DATA  BASE 
CDATE  - CURRENT  DATE  AS  DATA  BASE  IS  BEING  READ 
NP  * NUMBER  OF  POINTS  AFTER  CDATE  - SDATE 
BP  * POINT  WHEN  NP-1 
IC  - TOTAL  PERIODS  COLLECTED 

NDATE, NEUENT , NCONFL, NCOOP,  NTOTAL  APE  THE  INITIAL 

COLLECTION  ARRAYS  USED  FOP  CALCULATION  OF  PPOGRESSSIUE 
2-SCORES 

NCOUNT, COUNT  - TOTAL  ♦ ACTUAL  EUENT  COUNTS 
IMPLICIT  INTEGER<A-2) 

COMMON  /P ARAM/  Cl , N I , ADI < 3 > , CR, NR , ADR( 3> . DUAL , 

SDATE*  FDA TE , TCODE , SHODE . R, ISCEED, t N I TAB 
COMMON  /RESLT^  COUNT, IC , DATE < 36 > , EUENTC 22 , 36 > , 

COOP ( 36 , , CONFL ( 36  > , TOT AL ( 36 ) , ATOTAL  ( 36  ) , 
2T0TALC36), ACOOP^36> , ZCOOP<36> , ACONFLC36), 
2C0NFL ( 36  > , TF ( 36 ) , 2ST ( 36 ) , HR( 36) , 2SH<36  > , 
PTOTAL ( 36  > , PCOOP<  36  > , PCONFL<  36 ) * RDATE<  36) 
COMMON^POINT-'BPtLSEL,  ISEL 

DIMENSION  NEUENT (22, 120 > , NCOOP( 120) , NCONFL( 120) , NTOTAL( 120) 

CHARACTER*3  CI,CR 
CHARACTER  AD  I, ADR 
LOGICAL  DUAL 

REAL  2T0TAL, ZCOOP, 2C0NFL 
REAL  ATOTAL, ACOOP.ACONFL 
PEAL  2ST , 2SH, TF , HR 

REAL  R TEMP (120 ),NTF (120). NHR ( 120 ) , NDATE( 120 ) 

REAL  PTOTAL, PCOOP.PCONFL 

DATA  NE^22/ 

DATA  MAX/36/ 

DATA  MAXREC/6532/ 

CALL  DFUR( 'GETR' , 'RUSD' , RUSD', 0,0) 

CLOSE(l) 

OPEN( 1 , NAME- ' RUSD ' , READONLY- . TRUE . , TYPE* ' OLD ' ) 

COUNT-0 
NCOUNT-0 
BP-0 
IC-0 
JR- 1. 

DATE(  IO-IDATE 
GO  TO  201 
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08890 

280 

CONTI  HUE 

08900 

IFT JR.GE.R>R-R+l 

08910 

JR-JR+1 

08920 

IFTR.GT.HAXREC)  GO  TO  300 

08930 

201 

CONTINUE 

08940 

READT 1,3001, REC- JR)CDATE, III, EEE, RRR,  i 

08950 

3001 

FORMAT  < 16, 413) 

08960C 

08970 

IF < JR.LT.R)G0T0  202 

08980 

IFTCDATE. LT.SDATE)  GO  TO  200 

08990 

IFTCDATE. GT. FDATE)  GO  TO  300 

09000C 

09010 

20  2 

CONTINUE 

09020 

IFT . NOT. NXTINCTTCODE, IDATE, CDATE) ) GO 

09030 

IFTIC.LT. MAX)  GO  TO  203 

09040 

GOTO  203 

09050 

HRITET6, 1012)  MAX 

09060 

1012 

FORMAT < ' MAX  NO  OF  INTEPUALS  (',13,') 

09070+ 

'TABULATION  INTERRUPTED.') 

09080 

GO  TO  300 

09090 

203 

CONTINUE 

09100 

1CMC+1 

09110 

IFTCDATE. GE.SDATE)NP-NP+1 

09120 

IFTNP.EG.  DBP-IC 

09130 

NDATET  10*1  DATE 

09140 

DO  205  E*1 , 22 

09158 

NEUENTTE,  10-0 

09160 

205 

CONTINUE 

09170 

210 

CONTINUE 

09180C 

09190 

IFT  TNI . EQ. 0. OR. 1 1 1 . EG. NI ). AND. TNR.EQ. 

09200+ 

GO  TO  220 

09210 

IFTDUAL. AND. 

09220+ 

T NR. EG. 0. OR. III. EG. NR). AND. TNI. EG. 

09230+ 

GO  TO  220 

09240 

GO  TO  200 

99250C 

09260 

220 

CONTINUE 

09270 

COUNT  *COUNT+  1 

09280 

IFTCDATE. GE. SDATE  >NC0UNT*NC0UNT  + 1 

09290 

E-EEEM0 

09300 

NEUENTTE,  IO-NEUENT (E,  10+1 

09310 

GO  TO  208 

09320C 

09330 

300 

CONTINUE 

09340 

CLOSET 1,D ISP- 'KEEP ' ) 

09350 

WRITET6,  101DNCOUNT 

09360 

1011 

FORMAT T/,2X,tNUMBER  OF  EUENTS  FOUND  : 

09370 

READ  100,1 

09380 

100 

FORMAT ( A1 ) 

09390 

IFTCOUNT . EG. 0 > GO  TO  320 

09408C 

09410 

DO  310  1*1, IC 

09420 

NCOOPT I)«0 

09430 

DO  305  EM  , 10 

09440 

NCOOPT I )-NCOOPT I )+NEUENT  TE, I ) 

09450 

305 

CONTINUE 

09460 

NCONFLTD-0 

09470 

DO  306  EM  1 , 22 

09488 

NCONFLT I >-NCONFL  T I )+NEUENT (E , I ) 

09490 

306 

CONTINUE 

09500 

NTOTALT I )*NCOOP  T I )+NCONFLT I ) 

09510 

310 

CONTINUE 

09528C 

09530 

320 

CONTINUE 

*, 15,/) 


09570 

09580 

09590 

09600 

09610 

09620 

09630 

09640 

09650 

09660C 

09678 

09680C 

09690 

09700 

09710 

09720 

09725C 

09730 

09740 

09750 

09760 

09770 

09780 

09790 

09800 

09810 

09820 

09830 

09840 

09850 

09860 

09870 

09880 

09890 

09900 

09910 

09920 

09930 

09940 

09950 

89960 

09970 

09980 

09990C 

10000C 

10010C 

10020 

10030C 

10040C 

10050C 

10060C 

10070C 

10088C 

10090C 

10100C 

10110C 

10120C 

10130C 

10140 

10150C 

10160 

10170 

10180 

10190 

10200 

10210 

10220C 

10230C 


CALL  COHORT ( IC, NTOTAL, RTEHP) 

CALL  ZSC0RP( I C , RTEHP, ZTOTAL > 

CALL  PTABLE ( ZTOTAL » NP, 2, PTOTAL) 

CALL  COHORT < IC * HCOOP , RTEHP > 

CALL  ZSC0RP(IC, RTEHP, ZCOOP) 

CALL  P TABLE ( ZCOOP  * HP , 4 , PCOOP  > 

CALL  COHORT < IC*  NCQNFL, RTEHP  > 

CALL  ZSCORPCIC, RTEHP, ZCONFL) 

CALL  PTABLE(ZC0HFL,NP,6,PC0HFL> 

313  COHTIHUE 

CALL  TENSONC IC , NCONFL, NTOTAL , HTF ) 

CALL  ZSCORP< IC,NTF,ZST> 

CALL  HREL(IC, ME, NEUENT, NTOTAL, NHR> 

CALL  ZSCORPC IC,NHR, ZSH> 

1-1 

DO  150  J*BP,IC 
TFC I >*NTF< J> 

HR( I >*MHR( J> 

DATE< I )*NDATE< J> 

1*1  + 1 

150  COHTIHUE 
1*1 

DO  160  J-BP,  IC 
COOPU)-HCOOP<J) 

CONFL< I )*HCONFL( J> 

TOTAL ( I >*NTO TALC J> 

1*1  + 1 

160  CONTINUE 
1-1 

DO  170  J*BP, IC 
DO  180  E*1 , 22 
EOENT  <E , I )*NEOENTCE, J> 

180  CONTINUE 
1*1  + 1 

170  CONTINUE 
IC*NP 

COUNT  *NCOUNT 

IFC INITA8. EQ. 1 >CALL  SHLTAB 

I F < INITAB. HE. 1)CALL  DEKODAC I C, DATE,  RDATE > 

END 


SUBROUTINE  ZSCORPCN,C,ZS> 


OB JECTIOE:  TO  CALCULATE  PROGRESSIUE  MEANS  AND  PROGRESSIOE 

ir:tC$RES  F0R  A COLLECTION  OF  ITEMS.  THE  MEAN  AND  THE  Z-SCORE 
FOR  THE  ITH  ITEM  IS  BASED  UPON  THE  PRECEDING  1-1  ITEMS  ONLY. 


N - NO  OF  ITEMS  IN  COLLECTION  0*1). 

C(M>  - COLLECTION  OF  ITEMS. 

HEANCN)  - MEANS  fSET  BY  ZSCORPC 
ZS(N)  - Z-SCORES  (SET  BY  ZSCORP-*. 

ZSRC120)  - TEMPORARY  COLLECTION  ARRAY 


IMPLICIT  INTEGER(A-Z) 


COMMON^POINT/BP 

RFAi 

real  SUH,SO,SD,D£U 

RFAi  <>OCT 

REAL  ZSR( 120> , ZS(36) 
REAL  MEAN (1 20 > 
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10240 
10250 
10260 
10270 
10280C 
10290 
10300C 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 
10400 
10410 
1042P 
10430 
10440 
10450 
10460 
10470 
10480 
10490C 
10500 
10510 
1052O 
10530 
10540 
10*50 
10560 
10570C 
10580 
10590 
10600C 
10610C 
10620C 
10630C 
10640C 
10650C 
10660C 
10670C 
10688C 
18690C 
10700C 
10710 
10720C 
10730 
10740 
10750C 
10760C 
10770 
10780 
10790 
10800 
10810 
10820C 
10830 
10840C 
10850 
10852C 
10853C 
108S4C 
10860 
1 0879C 
10880C 


SUN-0. 

SQ-0. 

NEAN( 1 )"0. 

ZSR( 1 >-0. 

IF<N.LE. 1)  CO  TO  200 

DO  140  >2, N 
K-I-l 

SUH-SUN+COO 

SQ«SQ*C(K>*C(K> 

NEAN(I>»SUN/K 
IF(K.GT.1>  GO  TO  100 
SD-0. 

GO  TO  110 
100  CONTINUE 

SD-SQRT ( <K*SQ-SUNTSUH)/'(Kt  f K - 1 ) > ) 
110  CONTINUE 

IFfSD.NE.0. > GO  TO  120 
ZSR< I >*0. 

GO  TO  130 
120  CONTINUE 

ZSR( I >-( C(  I >-NEAN( I ) )/SD 
130  CONTINUE 
140  CONTINUE 

200  CONTINUE 
1-1 

DO  150  J-BP.N 
ZS(I>-ZSR( J> 

I-I  + l 

150  CONTINUE 
RETURN 


SUBROUTINE  TENSON(N, CONFL, TOTAL, TF> 

OBJECTIUE:  TO  CALCULATE  TNE  TENSION  FACTOR  (PERCENT  OF 

CONFLICTIUE  EUENTS)  FOR  EACH  OF  A COLLECTION  OF  TINE 
INTERUALS. 

N - NO  OF  TIME  INTERUALS  (>-l>. 

CONFL(N)  - NO  OF  CONFLICTIUE  EUENTS  IN  EACH  TINE  INTERUAL. 
TATAL(N>  - TOTAL  NO  OF  EUENTS  IN  EACH  TINE  INTERUAL. 

TF(N>  - TENSION  FACTOR  FOR  EACH  TINE  INTERUAL  (SET  BY 
TENSON) . 

INPLICIT  INTEGER(A-Z) 

INTEGER  CONFL(N),TOTAL(N> 

REAL  TF(N> 


DO  100  I-1,N 
TF( I >*0. 

IF(TOTAL(I>.EQ.0. ) GO  TO  100 
TF( I >«100. *CONFL( I )/TOTAL( I > 
100  CONTINUE 

RETURN 


SUBROUT  I HE  HREL (N, HE , EUENT , TOTAL , HR ) 

OBJECTIUE:  TO  CALCULATE  H-REL  OUER  ALL  EUENT  CATEGORIES 
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10898C 
10900C 
10910C 
10920C 
10930C 
10940C 
10950C 
10960C 
10970C 
10980 
10990C 
11000 
11010 
11020 
11030 
1 1040C 
11050C 
11060C 
1 1070C 
11080 
11090C 
11100 
U110C 
11120 
11130 
11140 
11158 
11160 
11170 
11180 
11190 
11200 
11210C 
11220 
1 1230C 
11240 
1 1245C 
11246C 
1 1247C 
11250 
11260C 
11270C 
11280C 
11290C 
1 1 300C 
11310C 
11320C 
11330C 
11340 
11350C 
11360 
11370 
11380C 
11390C 
11400 
11410 
11420 
11430C 
11440 
1 1450C 
11460 
11470C 
1 1480C 
11490C 
11500 
1 1510C 
11S20C 
11530C 


FOR  EACH  OF  A COLLECTION  OF  TIHE  INTEROALS. 


N 

HE 

EUENT<NE,N> 

TOTAL(N) 

HR(H) 


MO  OF  TIHE  IHTEROALS  <>»1>. 

HO  OF  EOEHT  CATEGORIES. 

HO  OF  EOEHTS  IN  EACH  CATEGORY  FOR  EACH  TIHE 
INTERUAL . 

TOTAL  MO  OF  EOEHTS  IH  EACH  TIHE  INTEROAL. 
H-REL  FOR  EACH  TIHE  INTEROAL  (SET  BY  HREL). 


IMPLICIT  INTEGERS A-Z> 


INTEGER  EOEHT (NE>  N>  t TOTAL(N) 
REAL  HR(N> 

REAL  HHAX|HABS»R 
REAL  ALOGi AL0G2 


NOTE:  L0G2(X)«AL0G(X)'AL0G(2> 


AL0G2-AL0G<2. ) 

HHAX— ALOGC 1 . /NEVALOG2 

DO  110  I»l, N 
HABS-8. 

DO  100  E*1 f NE 

I F < EOENT < E * I > . EQ . 0 > GO  TO  100 
R«l.*EOENT(E,  D-'TOTALd) 
HA0S«HABS-RtALOG(R)'ALOG2 
100  CONTINUE 

HR(I>-HA0S'HHAX 
110  CONTINUE 

RETURN 

END 


SUBROUTINE  CONORT (N, I DATA, RDATA) 

8aS5T5?W°«gSSI?T  ^ 0F  ,HTECER  MLUES  ,HT0  “H 

N - NO  OF  ITEMS. 

IDATA(N)  - INTEGER  ARRAY. 

RDATA<:N>  - REAL  ARRAY  (SET  BY  CONORT). 

IMPLICIT  INTEGER(A-Z) 

INTEGER  IDATA(N) 

REAL  RDATA(N) 


DO  100  I«1,N 
RDATA(I)«IDATA(I) 
100  CONTINUE 

RETURN 

END 


SUBROUTINE  PTABLE< ZSCR , N, J, PROB ) 

OBJECT IOE  : TO  ASSIGN  PROBABILITIES  FROM  Z-SCORES 
PROPER  TABLE.  TABLE  1 BEGINS  AT  PSCR( 1 
BEGINS  AT  PSCR (2 1 '• . TABLE  3 BEGINS  AT 


ACCORDING  TO 
).  TABLE  2 
PSCRr41 > . Em 
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1 1348C 
11550C 
1 1560C 
1 1570C 
11580C 
11390C 
11600C 
1161 OC 
11628C 
11630C 
11640C 
1 1658C 
1 1660C 
11670C 
11680 
11690 
11700 
11710+ 
11720+ 
11730+ 
11740+ 
11750+ 
11760C 
11770C 
11780 
11790 
11600 
11810C 
11820 
11830 
11840 
11850 
11860 
11870 
11880 
11890 
11900 
11916 
11920 
11930 
11940C 
11950C 
1 1960C 
11970 
11980C 
11990C 
12000C 
12010C 
12020C 
12038C 
12040C 
12850C 
12060C 
12070C 
12080C 
12090C 
12100C 
12110C 
12120C 
12130C 
12140 
12150C 
12160C 
12170 
12180C 
12190 
1 2200 C 
12210 


TABLE  IS  20  ELEMENTS  LONG.  THE  VALUE  FOR  19  TO  IHF 
1TY  IS  IN  THE  19TH  LOCATION  AND  THE  VALUE  FOR  0 IS 
THE  20TH. 


PAR AMS* 

zscr‘-  z-score  of  total, coop,  or  confl 

H - NUMBER  OF  ELEMENTS  IN  ARRAY 
J - TABLE  TYPE 

2 * TOTAL  ACTIVITY 
4 • COOPERATIVE  ACTIVITY 
6 * CONFLICTUAL  ACTIVITY 
PROS  - PROBABILITY  ARRAY  RETURNED 


DIMENSION  PROB(36> 

DIMENSION  ZSCR<36> , PSCR<60 > 

DAT  A PSCR  05, .1,. 4, .3,. 6, .6*. 7, .7, .7, .7, 
•8, <6, . 8, . 8, .8, .8, .8, .6, >9, >01, 

>01, >01, .05, >1, >2, «2, #4, .4, .4, .4, 

>6, >6, >6, >6, >6, >6*  >6, >6, . 7, >01, 

• 05, >1, >4, >5, >6, »6, >7, >7, >f , • 7 % 

• 8, >8, >8, . 8, ■ 8 , >8, >8, • 8 , ■ 9 , . 0 1 / 


IFfJ.EQ.2)  K*0 
IFCJ.EQ.4)  K-20 
IF< J. EQ. 6 ) K * 40 

DO  10  1*1 , N 

IF< INT( ZSCR( I >+• 3> • GE • 19)  GOTO  20 
IF ( I NT (ZSCR( I)+.5).LE.0)  GOTO  30 
IVAL  * INT< (ZSCR< I )+. 3)+K> 

GOTO  40 

28  IVAL  * 19  ♦ K 
GOTO  40 

30  IVAL  * 20  + K 
40  PROB < I ) - PSCR(IUAL) 

10  CONTINUE 
RETURN 
END 


LOGICAL  FUNCTION  NXT INC( TCODE, IDATE,CDATE> 


OBJECTIVE:  TO  DETERMINE  WHETHER  OR  NOT  A GIVEN  DATE  SIGNALS 

THE  START  OF  THE  NEXT  TIME  INCREMENT . NXTINC  IS  SET  .TRUE. 
IF  THE  CURRENT  DATE  IS  INTO  THE  NEXT  TIME  INCREMENT  RELATIVE 
TO  AN  INITIAL  DATEj  ELSE,  NXTINC  IS  SET  . FALSE. 


TCODE  - TIME  INCREMENT  CODE— 
l:  MONTH 

2:  QUARTER 

3:  YEAR 


IDATE  - INITIAL  DATE  IN  FORM  YYYMMMDDD. 
_ „ DATE  IF  NXTINC  IS  SET  TO  .TRUE. 
CDATE  - CURRENT  DATE  IN  FORM  YYMMDD. 


(SET  TO  CURRENT 
ELSE,  UNCHANGED.) 


IMPLICIT  INTEGER(A-Z) 


NXTINC*. FALSE. 

GO  TO  <’200,  300,  500)  , TCODE 
100  CONTINUE 
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12220  IFCCDATE.LE. I DATE)  GO  TO  800 

12230  GO  TO  700 

12240C 

12250  200  CONTINUE 

12260  DELTA-CDATE'100'iDATE/180 

12270  IFCDELTA. LE.0)  GO  TO  800 

12280  GO  TO  700 

12290C 

12300  300  CONTINUE 

12310  XDATE-CDATE 

12320  DELTA»CDATE' 10000- I DATE/ 10000 

12330  IFCDELTA. LE.0)  GO  TO  310 

12340  XDATE-CDATE-8800 

12350  310  CONTINUE 

12360  DELTA-XDATE/100-IDATE/100 

12370  IFCDELTA. LE. 2)  GO  TO  800 

12389  GO  TO  700 

12398C 

12400  400  CONTINUE 

12418  XDATE-CDATE 

12420  DELTA-CDATE/ 10000- IDATE/ 10000 

12430  IFCDELTA. LE. 0)  GO  TO  410 

12440  XDATE*CD ATE -8800 

12450  410  CONTINUE 

12460  DELTA-XDATE/100-IDATE/100 

12470  IFCDELTA. LE.5>  GO  TO  800 

12480  GO  TO  700 

12496C 

12500  500  CONTINUE 

12510  XDATE-CDATE 

12520  DELTA-CDATE' 1 0000- IDATE/ ] 0000 

12530  IFCDELTA. LE.0)  GO  TO  510 

12540  XDATE-CDATE-8800 

12550  510  CONTINUE 

12560  DEL TA-XD ATE '100- I DATE/ 100 

12570  IFCDELTA.LE.il)  GO  TO  800 

12580  GO  TO  700 

12590C 

12600  700  CONTINUE 

12610  NXTINC-. TRUE. 

12620  IDATE-CDATE 

12630C 

12640  800  CONTINUE 

12650  RETURN 

12660C 

12670  END 

12680C 

12690C 

12700C 

12710  SUBROUTINE  SMLTAB 

12720C 

12738C  OBJECTIUE  - TO  PRINT  OUT  THE  30  DAY  PPOBABLISTIC  TABLES  USING 
12740C  ARRAYS  CONSTRUCTED  AND  PASSED  THRU  COMMON 

12750C 
12760C 

12770C  MAJOR  PARAMETERS: 

12780C  DEKODE  - SUBROUTINE  TO  GIUE  ALPHA  DATE 

12790C  DEKODA  - SUBROUTINE  TO  GIUE  ALPHA  DATE  ARRAY 

12800C  CI.CR  - CHARACTER  INITIATOR  + RECIPEIENT  <3-CH RS> 

12810C  IDIR  - FLOW  DIRECTION  FOR  FORMATTING 

12820C  BLANC  - ROUTINE  TO  BLANC  PAGE  IN  MAIN 

12830C  INTRUL  - TIME  INCREMENT  < 9 CHRS> 

12840C  ISMONTH  - START  MONTH 

12850C  ISYEAP  - START  YEAR 

12860C  IFMONTH  - FINISH  MONTH 

12870C  IFYEAR  - FINISH  YEAR 

I2880C  RDATE  - ARRAY  OF  ALPHA  DATES 

12890C  PTOTAL  - PR08A6IL I T IES  ON  TOTAL  EUENTS 
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IMPLICIT  INTEGERCA-Z) 

COMMON  /PARAM'  C I , NI , AD  I < 3) , CR, NR, ADR<3> , DUAL, 
SDATE»FDATE,  TCODE,  SMODE,R,  I SPEED,  INITAB 
COMMON  /RESLT/  COUNT , IC , DATEC36) , EVENK 22, 36) , 
COOP < 36  > , CONPL  C 36  > , TOTAL  < 36  > , ATOTAL C 36 ) , 

ZTOT ALC  36  ) , ACOOP  C 36  > , ZCOOP  C 36 ) , ACONFL  < 36  ) , 
ZC0NFLC36) » TFC36) , ZSTC36) , HRC36) , ZSHC36) , 

PTOT AL < 36 > , PCOOP < 36 > , PCONFL < 36 > , RDATE < 36 > 
COMMON/POINT^BP 
CHARACTER*3  CI,CR 
CHARACTER  ADI, ADR 
CHARACTERS  INTRULC3) 

LOGICAL  DUAL 

REAL  ZT0TAL,2C00P,ZC0NFL 
REAL  ZTOTAL, ACOOP, ACONFL 
REAL  Z3T , ZSH, TF, HR 
REAL  PTOTAL, PCOOP. PCONFL 

DATA  INTRUL  ✓ ' MONTHLY ' , ' QUARTERLY ' , ' YEARL 

IDIR*6H<<0>> 

IF< . NOT. DUAL) IDIR»6H>>  >>>> 

CALL  BLANC 


13120  1001  FORMAT C24X, 3C3H*) , IX , A3, 2X, A6, 2X, A3, lX,3(3Ht>,/> 

13130  WRITE (6, 1002)  IHTRULC  TCODE  "■ 

13140  1002  F0RMATC24X, A9, * PROBABILITY  *> 

13130  CALL  DEKODECSDATE, I SMONTH, ISYEAR) 

13160  CALL  DEKODECFDATE, IFMONTH, IFYEAR) 

13170  WRITER,  1003)  ISMONTH,  ISYEAR,  IFMONTH,  IFYEAR 

13180  1003  FORMAT C25X, A3, *,  t,I4,»  - t,A3,t,  *,I4,/) 

13190  WRITER,  1001)CI,  IDIR, CP 

I 77<U)  UD  T TP  1 Rfl  4 

13210  1004  FORMAT ( 24X, *DATE< » 9X, tPROBAB ILITY  *,/> 

13220  CALL  DEKODA< I C, DATE, RDATE) 

13230  NC-IC 

13240  IFC IC.GT. 18)  10,20 

13250  10  NC-18 

13260  20  DO  30  I-l.NC 

13270  UR  I TEC 6, 1 003 )RDATECI > , PTOTAL (I  ) 

13280  1003  FORMAT (24X, A6« 10X,F6.2> 

13290  30  CONTINUE 

13300  READ  100,1 

13310  100  FORMAT C A 10) 

13320  IF( IC.GT. 18) 11,21 

13330  11  NF-NC+1 

13340  CALL  BLANC 

13350  WRITEC6. 1002)INTRUL(TCODE) 

13360  WRITEC6, 1 003 ) I SMONTH, ISYEAR, IFMONTH, IFYEAR 

13370  HR  I TEC  6, 1001 )C I , IDIR, CR 

13380  URITEC6, 1004) 

13390  DO  31, I-NF, IC 

13400  WRITEC6, 1 005 >PDATEC I > , PTOTAL < I ) 

13410  31  CONTINUE 

13420  READ  100,1 

13430  21  CONTINUE 

13440  RETURN 

13430  END 

13460C 
13470C 
1 3480C 

13490  SUBROUTINE  DEKODEC ID, IMONTH, IYEAR) 

1 3300C 

13310C  OBJECTIUE  - TO  SPLIT  16  DATE  INTO  TWO  PARTS  MONTH  ♦ YEAR 
13520C 

13530C  PARAMETERS: 

13340C  ID  - 16  DATE 

13350C  IMONTH  - XXX  CRETURNED) 

13360C  IYEAR  - 19XX  < * > 

13570C 
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13380  01 HENS I OH  M)NTHS<12> 

13590  DATA  HONTHS  /3HJAN, 3HFEB, 3HHAR.3HAPR. 3HHAY, 3HJUN, 

1 3600+  3H  JUL , 3HAUG , 3HSEP , 3H0CT , 3HN0U , 3H0EC-' 

13610  IY*ID^ 10000 

13620  IH-(ID-10000*IY>/100 

13630  IHONTH-HCNTHSUH) 

13640  I YEAR* < IY+1900) 

13650  RETURN 
13660  END 
13670C 
13680C 
1 3690C 

13700  SUBROUTINE  DEKODAC I C * IDATE*  JDATE ) 

OBJECTIUE  - TO  BUILD  AN  ARRAY  FROM  DATES  IN  16  FORHAT  TO 
ALPHA  FORHAT 

PAD£MPTPE,Ck  * 

IC  * NUMBER  OF  ELEMENTS  IN  ARRAY 

IDATE  * ARRAY  THAT  IS  IC  BIG,  IN  16  FORHAT  CYYHMDD) 
JDATE  * RETURNED  ARRAY  IN  FORH  <MHH  YY 
ENCODE, DECODE  - UCS  SYSTEM  UTILLITIES 

13800  D I HENS  I ON  IDATEC  IC) , JDATECIC  > , HONTHS<  12) 

13810  DATA  HONTHS  /3HJAN, 3HFEB, 3HMAR , 3HAPR, 3HHAY. 3HJUM, 

1 3820+  3H JUL , 3HAUG , 3HSEP , 3H0CT , 3HN0U , 3HDEC ✓ 

13830  DO  10  1*1, IC 
13840  IY*IDATE<I 10008 
13850  IM-<IDATE<I>-10000*IYV100 
13860  IHONTH*MONTHS( IH) 

13870  ENCODE <6, 1 , ITEHP > IHONTH, I Y 
13880  DECODE (6, 2, ITEHP > JDATE <I> 

13890  2 FORHAT fA6) 

13900  1 F0RHAT(A3, IX, 12) 

13910  10  CONTINUE 
13920  RETURN 
13930  END 
13940C 
13950C 
13960C 
13970C 
13980 
13990C 
14000C 
14010C 
14020C 
14030C 
14040C 
14050C 
14060C 
14070C 
14080C 
14096C 
14100C 
14110C 
14120C 
14130C 
14140C 
14150C 
14160C 
14170C 
14180C 
14190C 
14200C 
14210C 
14215C 
14220C 
14230C 
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OUERLAY(OURLAY, 4,0) 

OBJECTIUE: 

TO  PROUIDE  GRAPHIC  DISPLAY  CAPABILITY  TO  THE  PROGRAH. 

THIS  OUERLAY  CALLS  THE  PLOT-10  PACKAGE  USING  BOTH  THE 

TCS  AND  AG-II  ROUTINES. 

SUBROUTINES  — 

PLOTIT  - ALL  PLOTS  (BAR+GRAPH)  ARE  GENERATED  BY  A 
CALL  TO  THIS  SUBROUTINE 

CHOOSE  - ROUTINE  DISPLAY  MATRIX  AND  ASKS  USER  FOR 
GRAPH  TYPE,  NUHBER,  AND  QUANTITY 

USERS  - ROUTINE  PLOTS  PROBABILITIES  ON  EXISTING 
GRAPH 

PTABLE  - ASSIGNS  PROBABILITY  UALUES  FOR  'USERS  ROUTINE. 
UNLIKE  PTABLE  IN  OUERLAY  2 - PROBABILITIES 
ARE  ONLY  ONE  DECIMAL  PLACE 

CHCNUT  - CONUERTS  CHARACTER  STRINGS  TO  ASCII  ARRAYS 

TITLE  - DISPLAYS  TITLE  OF  GRAPH  OH  UPPER  PORTION  OF  CRT. 

LGND  - IF  PLOT  IS  A MULTI-GRAPH  ON  ONE  AXIS.  THIS 
ROUTINE  MILL  PLACE  A LEGEND  ABOUE  GRAPH. 

MAJOR  PARAMETERS: 

PLOUT  • 10X36  ARRAY  CONTAINING  THE  10  MAJOR  OUTPUT 

ARRAYS.  THEY  ARE  ORDERED  1-10  LIKE  THE  MATRIX 


13710C 

13720C 

13730C 

13740C 

13750C 

13760C 

13770C 

13780C 

13790C 

13795C 


1 


■ 


1 


1 


14240C 

1 4250C 

14260C 

14270C 

1 4280C 

14290C 

14300C 

14310C 

14320C 

14330C 

14340C 

14350C 

14360C 

14370C 

14380 

14390C 

14400 

14410C 

14420 

14430+ 

14440 

14450+ 

14460+ 

14470+ 

14480+ 

14490 

14500C 

14510 

14520 

14530 

14540 

14550 

14560 

14570C 

i 4580c 

14590 

14600 

14610 

14620 

14630 

14640 

14650C 

14660 

14670 

14680 

14690 

14700+ 

14710+ 

14720+ 

14730 

14740 

14750 

14760 

14770 

14780 

14790 

14800 

14810 

14820 

14830 

14840 

14850C 

14860C 

14870 

14880 

14890 

14900 

14910 


LABELS  ■ 2X10  ARRAY  CONTAINING  LABELS  FOR  A60UE  DATA 
START  • INDEX  ARRAY  USED  TO  CALCULATE  'LOC' 

LOC  - INDEX  SUBROUTINE  PLOTIT.  GIUES  INFORMATION 
TO  LOCATE  POSITION  OF  GRAPH  ON  CRT. 

FUCODE  ■ 22  CATEGORIES  OF  EVENTS 
IND  ■ ARRAY  THAT  CONTAINS  VALUES  OF  PLOTS  TO 
BE  DISPLAYED. 

IANS  - VARIABLE  Y-YES,  N-NO  TO  QUESTION  'ANOTHER 
DISPLAY" 

ADATE  - REAL  DATE  ARRAY 
IGT  « Y-YES* MULT I -GRAPH),  N»NO 

NUMB  - FUNCTION  TO  REFILL  IND  FOR  A BLOW-UP 
IP  ■ Y=YES*PROBABILlTIES>,  N«NO 

PROGRAM  PLOT 

IMPLICIT  INTEGER*. A-Z> 

COMMON  /PARAM/  Cl , NI , ADI *3) , CR , NR . ADR *3> , DUAL , 

SDATE, FDATE, TCODE, SNODE , R, ISPEED, INI  TAB 
COMMON  /RESLT/  COUNT , IC, DATE*36> , EVENT <22, 36 > , 

C00P*36),C0NFL* 36), TOTAL*  36), ATOTAL*36>, 
ZTOTAL  < 36  > , ACOOP  * 36 ) , ZCOOP  36 ) , ACONFL  * 36 ) , 
ZCONFL  ( 36  > , TF ( 36 ) . ZST < 36 ) , HR  * 36  > , ZSH  >.  36  > , 
PTOTAL  * 36 ) , PCOOP  36 ) , PCONFL  < 36 ) . *?DATE  * 36  > 
COMMON  / CHOICE^  I YOLD,  IT, IP, KNTR,  PR0B*36) , IGT , IFLG 

CHARACTERS  CI,CR 
CHARACTER  AD I, ADR 
LOGICAL  DUAL 
CHARACTER*4  FUCODE 
DIMENSION  FVC 0DE<22) 

DIMENSION  LABELS*  2, 10  ) , PLOUT  < 36 , 1 0> , START  * 6 ) , LOC * 13) , IND*6  > 


CHARACTER*9  INTRUL<3) 

CHARACTERS  1 STYPE*2) 

REAL  ZTOTAL , ZCOOP , ZCOHFL , ZST , ZSH, TF , HR 
REAL  PTOTAL, PCOOP, PCONFL 
REAL  ADATE (36) 

REAL  ATOTAL, ACOOP, ACONFL.PROB, PLOUT 
DATA  NE/22/ 

DATA  INTRVL/'MONTH', 'QUARTER ', 'YEAR '/ 

DATA  STYPE''NORMAL', 'PROGRESSIVE'/ 

DATA  FVCODE/'YLD  ' , 'CMNT' , 'CNSL' , ' APPR ' , 'PRMS ' , 'GRNT' , 
'REWD', 'AGRE', 'RQST',  PROP ' . R JCT ' , 'ACUS ' , 
'PROT', 'DENY', 'DMND ' , 'WARN', 'THRT' , 'DEMO', 

'RDUC ' , 'EXPL ' , SEIZ', 'FRCE'/ 

DATA  LABELS* 1 , 1 )/10HTOTAL  ACT  I/, LABELS<2, 1 )/ 10HVITY  / 

DATA  LABELS* 1,2)/10HTOT  ACTI VI/, LABELS(2, 2)/10HTY  Z-SCORE/ 
DATA  LABELS ( 1 , 3)/10HCOOPERAT IV/, LABELS  *2,  3 )/l0HE  ACTIVITY/ 
DATA  LABELS* 1 , 4 )/ 1 0HCOO  ACTIVI/. LABELS(2, 4^/l0HTY  Z-SCORE/ 
DATA  LABELS*  1 , 5>/10HCONFLICTUA/,  LABELS*.2, 5->/10HL  ACTIVITY/ 
DATA  LABELS*1,6)/10HCON  ACTIVI/, LABELS  * 2 , 6 > ' 1 0HT Y Z-SCOPE/ 
DATA  LABELS* 1 , 7)/10H  TENS/, LABELS* 2, 7>/19HI0N 

DATA  LABELS* 1 , 8)/10H  TENSION  /, LABELS* 2, 8>/ 1 0HZ-SCORE  / 

DATA  LABELS* 1,9)/10H  UNCERT/, LABELS* 2, 9^  10HAINTY 

DATA  LABELS* 1 , 10)/10HUNCERTAINT/, LABELS*2« 10>/10HY  Z-SCORE  / 
DATA  START/0, 1,3, 3, 7, 7' 

DATA  LOC/ 13, 11, 12,7,8,9, 10,1,2,3,4,5,6/ 


DO  314  I - 1 , IC 
ADATE* I)»DATE*  I ) 
ATOTAL*I)-TOTAL*I) 
ACOOP*I)-COOP(I> 
314  ACONFL* I )*CONFL( I ) 


li 
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14920 

14930 

14940 

14950 

14960 

14970 

14980 

14990 

15080 

15010 

15020 

15030 

15040C 

15050C 

15060C 

15878C 

15080C 

15090C 

15100C 

15110C 

15120C 

15130C 

15140C 

15150 

15160 

15170 

15180 

15190 

15200 

15210 

15220 

15230 

15240 

15250 

15260 

15270 

15280 

15290 

15300 

15310 

15320 

15330 

15340 

15350 

15360 

15370 

15380 

15390 

15400 

15410 

15420 

15430 

15440 

15450 

15460 

15470 

15480 

15490C 

15500C 

15510C 

15520 

15530C 

15540C 

15550C 

15560C 

15570C 

1S580C 

15590C 


DO  320  J-l.IC 
PLOUTCJ, l>-ATOTAL(J> 

PLOUTCJ, 2>»ZTOTALCJ> 

PLOUTCJ, 3>-ACOOPCJ> 

PLOUTCJ,  4>»ZC00PcJ> 

PLOUTCJ, 5 >*ACONFLC  J) 

PLOUTCJ, 6 >-ZCONFLCJ> 

PLOUTCJ, 7)-TFCJ> 

PLOUTCJ, 8)«ZSTCJ> 

PLOUTCJ, 9>«HR(J> 

PLOUTCJ, 10>»ZSHCJ> 

320  CONTINUE 

THIS  IS  THE  SECTION  THAT  CALLS  THE  PLOT  SUBROUTINE 
TWO  SUBROUTINES  ARE  INUOLUED  SO  FAR: 

CHOOSE  CIANS.IHD) 

WHERE 

IAHS  - NUMBER  OF  PLOTS  DESIRED 
INO  * THE  INDIVIDUAL  PLOT  NUMBERS 

PLOTITCILOC,  IC,ADATE»PLOUT , LABELS’' 


20  CALL  INITT C I SPEEDS 
CALL  CHOOSE CN, I ND> 

L«N 

25  CALL  INITTCISPEED) 

IFC1GT.EQ. 1HY) IFLG»0 
DO  10  I-1,N 
ILOC“LOCC I ♦START  CN)  > 

IFCIGT.EQ. 1HY > IL0C-L0CCSTARTC2) ) 

K*INDC I > 

IF ( IP. HE. 1HY)  GOTO  12 

GOTOC31 ,31,32,32,33,33, 12, 12,12, 12^, K 

31  J * 2 

GO  TO  11 

32  J • 4 

GO  TO  11 

33  J - 6 

11  CALL  PTABLEfPLOUTCl, J>,IC,J> 

12  CALL  PLOTITCILOC,  IC,  ADATE ( 1 > , PLOUTC  1 , »C> , LA8ELSC  1 , tO  , INO) 
10  CONTINUE 

CALL  TITLE 

IFCIGT.EQ. 1HY)  CALL  LGHDCL, IND) 

CALL  FINITTC0,60> 

IGT-1HN 
READ  100,1 
100  FORMATCA10) 

INDC 1 >*NUMB<'  I ) 

IFCINDC1).EQ.0)GOTO  40 
N«1 

GOTO  25 

40  PRINT, t ANOTHER  DISPLAY  CY  OR  N>*, 

READ, IAHS 

IFCIANS.EQ. 1HY)  GOTO  20 
RETURN 
END 


SUBROUTINE  PLOTITC INDEX, HP , XDATA, YDATA, TEXT, INUM) 
OBJECTIVE: 

THIS  ROUTINE  IS  THE  SINGLE  MOST  IMPORTANT  PART  OF 
THE  PROGRAM.  ALL  PLOTS  ARE  GENERATED  FROM  HERE. 

MOST  OF  THE  CALLS  ARE  TO  PLOT-10C AG-I I ) 

MAJOR  PARAMETERS: 
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15600C 
15610C 
15620C 
1 5630C 
15640C 
15650C 
15660C 
15670C 
13680C 
15690C 
15700C 
15710C 
15720 
15730+ 
15740 
15750C 
15760C 
15770 
15780 
15790 
15800 
15810 
15820 
15830 
15840C 
15850C 
15860 
15870 
15880 
15890 
15900 
15918+ 
15928 
15930+ 
15940 
13950+ 
15960 
15970C 
13980C 
15990 
16000 
16010 
16020 
16030 
16035C 
16036C 
16040C 
16050C 
16060C 
16070C 
16080C 
16090C 
16100C 
16110C 
16120C 
16130C 
16140C 
16150C 
16160C 
16170C 
16180C 
16190 
16200 
16210 
16220 
16230 
16240 
16250 


INDEX  - POSITION  OF  PLOT  ON  CRT  1-13 

HP  • NUMBER  OF  X POINTS  ON  EACH  PLOT 

XDATA  - X POINTS 

YDATA  « Y POINTS 

TEXT  - TITLE  TEXT  (FROM  LABELS) 

INUM  - NUMBER  OF  GRAPHS  BEING  PLOTTED  ON  ONE  PAGE 


COMMON  /PAR AM^  C I , NI , AD  I ( 3 > , CR , NR, ADR(3> , DUAL, 

SDATE, FDATE, TCODE, SMODE, R, ISPEED, INITAB 
COMMON  / CHOICE/  IYOLD, IT, IP, KNTR, PROB* 36), IGT, IFLG 


INTEGER  INUH<6> 

INTEGER  I ASC 1 1' 20), TEXT (2), ILINE (2 > 
INTEGER  TCODE , PER  I OD  < 3 > , PERHDTH  ( 3 '» 
INTEGER  P0S(13),XTIT(13),YTIT(13) 
REAL  PROB 

REAL  X(13),Y<37), YDATA (HP) 

INTEGER  HID< 13) 


DATA  ILINE  /5454,1212/ 

DATA  PEPIOO/12,4, 1 / 

DATA  PERHDTH/3, 1,4/ 

DATA(X(I), I«l,5)/-2.  ,0. ,12.  , 1966.  .0,/ 

DATA  P0S'3HUL6, 3HLL6, 3HUC6, 3HLC6, 3HUR6, 3HLP6 , 
3NUL4, 3HLL4 , 3HUR4 , 3HLR4, 3HUPH, 3HL0H , 3HSTD / 

DATA  XT  IT/238, 238, 563, 563, 888, 888, 300,300, 

800, 800,500,300,500/ 

DATA  YTI T/725. 350, 725, 350, 725,350, 725,350, 
725,350,725,350,725/ 

DATA  HID -15, 15, 15, 15, 15, 1 5, 20, 20, 20, 20, 40, 40, 40/ 


X(2)*FL0AT (NP  > 

X(3)*FLOAT( PER  I OD<  TCODE ) ) 

X<4 > “FLOAT  < INT< (XDATA/ 1 0000 ) + 1 980) ) 
X(5)»FL0AT(INT((XDATA-( (X( 4 )-l 900 > * 10000 > )/ 108 > ) 
Yf 1 ) “FLOAT (NP) 


MAJOR  UARIABLES  AND  DATA  UARI ABLESl 
I ASCI  I - RETURNED  ASCII  CHRS  FROM  CHCNUT  ROUTINE 
ILINE  - ALTERNATE  LINES  USED  FOR  2 AND  3 PLOTS 

PER  GRAPH,  ILINE(1)“D ASHES,  ILINE(2)»D0TS 
XTIT  « X POSITION  OF  TITLE  DEPENDING  ON  POS 

YTIT  - Y POSITION  OF  TITLE  DEPENDING  ON  POS 

HID  « INDEXED  UALUES  FOR  HIDTH  OF  BAR-CHARTS 

JLAB  - INDEXED  UALUES  OF  X LABEL 

IFLG  ■ FLAG  DENOTING  ITERATION  ON  MULTI-GRAPH 

TCODE  - TIME  INCREMENT 

KNTR  * FLAG  USED  FOR  PROBABILITY  IF  « 1 PLOT  PPOeS 


IHIDTH*HID( IHDEX)/INT ( (NP+ 1 1 . >/12. ) 

DO  10  I-l.NP 
10  Y( 1 ♦ I ) » YDATA(I) 

CALL  CHCNUT (20, TEXT , IASCI I ) 

JLAB-TCODE+5 

CALL  BINITT 

IF(IT.EO. 1HB)  CALL  UBARST(0, IWIOTH,  0> 
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16260 
16270 
16280 
16290 
16300 
16310 
16320 
16330 
16340 
16350 
16360 
16370 
16388 
16390 
16400 
16410 
16420 
16430 
16440 
16450 
16460 
16470 
16480 
16490 
16500 
16510 
16520 
16530 
16540 
16550 
16560 
16570 
16580 
16590 
16600 
16610 
16620 
16630 
16640 
16650 
16660 
16670 
16680 
16690 
16700 
16710 
16720 
16730 
16740 
16750 
1 6760 
16770 
16780C 
16790C 
16800C 
16810 
16820C 
16830C 
16840 
16850* 
16860 
16870 
16880 
16890 
16900 
16910 
16920 
16930C 


IFCIT.EQ. IMS)  CALL  UBARST  <8,  I WIDTH, I WIDTH) 

IFUGT.EQ.  IHY. A.  INUM<1>.EQ.7>  GOTO  11 
CALL  PLACE(POS< INDEX) > 

GOTO  12 

11  CALL  SLIMXU50.900) 

12  CONTINUE 
CALL  YLOC(0) 

ra 4 i yi  ARC  1 1 

CALL  XWDTH(PERWDTH(TCODE> ) 

CALL  YTYPEU) 

IF<  IFLG.  GT.  0.  A.  IGT. EQ. IHY. A.  INUMU  > . EQ.  7>G0T0  23 
IFUFLG.GT.0.A.  IGT.EO.  1HY>20,21 
20  CONTINUE 
CALL  XFRM<2> 

CALL  XTYPE(JLAB) 

CALL  XDEN<5> 

CALL  CHECK (X,  Y ) 

CALL  LL1NEULINEUFLG) ) 

CALL  CPL0T<X,Y> 

GOTO  22 
21  CONTINUE 
CALL  XFRM<2> 

CALL  XTYPE(JLAB) 

CALL  XDEN(5> 

CALL  CHECK(X,Y> 

CALL  DSPLAYCX,  Y) 

22  CONTINUE 

IFUGT.EQ.  1HY)IFLG-IFLG*1 
IF < IP. HE. IHY)  GOTO  30 
IYOLD-0 
KNTR  - 1 

CALL  LLINE<"8888> 

CALL  SYHBL  < - 1 > 

CALL  CPLOT ( X , Y > 

GOTO  30 

23  CONTINUE 
CALL  YFRH(2> 

CALL  YLOCRT <0> 

CALL  XLAB(0> 

CALL  XFPH(0> 

CALL  DLIHYC0.  ,0.  ) 

CALL  CHECK (X  * Y ) 

CALL  LLINEULINEUFLG)) 

CALL  DSPLAYCX, Y) 

30  IFUFLG.EQ.  1.0.  INDEX.LT.  13  > CALL  FRAME 
IFUGT.EQ.  1HN.  A.  INDEX. EQ.  13)  CALL  FRAME 
CALL  JUSTERC20, IASCI I , 0, 32, LEN, I OFF) 

IFUGT.EQ.  1 HY >GOTO  31 

CALL  NOTATE (XT  IT UNDEX>*I OFF, YT IT ( INDEX >, LEN, I ASCII) 

31  CONTINUE 
RETURN 
END 


SUBROUTINE  CHOOSE < IANS,  INDU- 


COMMON  ^PARAM/  C I , NI , AD  I < 3 ) , CR , NR , ADR< 3 > , DUAL . 

„ SDATE. FDATE, TCODE, SMODE. R. ISPEED, I N I TAB 

COMMON  ✓ CHOICE/  I YOLD, IT , IP , KNTR , PROB ( 36 > , I GT , IFlG 
DIMENSION  INDU<  6) 

D I MENS  ION  Z ( 7 > , RD  < 8 > * A ( 8 > , TOT  < 5 > , C C 4 > , CON  < 8 > . T *'  7 > , u < 6 > , L <"  5 < , 
INTEGER  Z,RD,T0T,A,C,C0N,T,U,L,H 
INTEGER  TIt (20> 

INTEGER  SDATE, FDATE, TCODE, SMODE 
REAL  PROB 
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16940C 

16930C 

16960 

16970 

16980 

16990 

17000 

17010 

17020 

17030 

17040 

17050 

17060 

17070+ 

17080C 

17090C 

17100C 

17110C 

17120C 

17130C 

17140C 

17150C 

1 7160C 

17170C 

17180C 

17190C 

17195C 

17200C 

17210C 

17220C 

17230C 

17240C 

17230C 

17260C 

17270C 

17280C 

17290C 

17300C 

17310C 

17320C 

17330C 

17340C 

17350C 

17360C 

17370C 

17380C 

17390C 

17400C 

17410C 

17420 

17430C 

17440 

17450C 

17460 

17470C 

17480C 

17490 

17500C 

17310 

17520C 

17330 

17340 

17530C 

17360C 

17370C 

17380C 

17590C 

1 7600 


LITERAL  DATA  FOR  LABELS 

DATA  2/90,43,83,67,79,82,69/ 

DATA  RD/82,63,87,32,68,63,84,63/ 

DATA  TOT/84,79,84,65,76/ 

DATA  A/63,67,84,73,86,73,84,89/ 

DATA  0/67,79,79,80/ 

DATA  CON/67,79,78,70,76,73,67,84/ 

DATA  T/84, 69, 78, 83, 73, 79, 78/ 

DATA  U/83, 78,67,69, 82, 84/ 

DATA  L/76,69,86,69,76/ 

DATA  N/49, 30, 51 , 32, 53,34, 35, 56,37,49,43/ 

DATA  TIT/80,79,76,73,84,73,67,65,76,32, 
73,78,68,73,67,63,84,79,82,83/ 

OBJECTIVE  - TO  PROVIDE  A SUBROUTINE  THAT  WILL  DRAW  A MATRIX. 
ON  THE  GRAPH  THE  USER  WILL  BE  GIVEN  A CHOICE  OF  HOW  MANY 
GRAPHS  HE  WANTS  TO  SEE  AND  WHICH  ONES... 

THE  SUBROUTINE  WILL  PASS  BACK  TO  OVERLAY  4,  THE  VALUES 


N * THE  NUMBER  OF  GRAPHS  DESIRED 
THIS  NUMBER  RANGES  FROM  1-6. 

IHDU  - THE  NUMBERS  OF  THE  GRAPHS  THEMSELVES 
EQUALS  THE  VALUE  OF  N. . 

PLOT-19  (TEKTRONICS)  SOFTWARE  IS  BEING  USER  IN  THIS  ROUTINE 
THE  THREE  MAIN  CALLS  USED  APE: 

MOVABS-  MOVE  TO  ABSOULTE  SCREEN  COORD  (X,Y) 

DRWABS-  DRAW  A LINE  FROM  CURRENT  COORD.  TO  (X.Y) 
NOTATE-  AT  COORD(X,Y>  PRINT  N-CHARS,  OF  I ARRAY 

MAJOR  PARAMETERS: 

IGT  - SET  TO  'Y'  IF  USER  HANTS  MULTI-GRAPH 

IT  - SET  TO  'G'-GRAPHS,  'B'»BAR  CHARTS,  'S' "SHADED  BARS 

IANS  • NUMBER  OF  CHARTS  'GRAPHS  DESIRED.  THESE 

WILL  BE  PLOTTED  EACH  WITH  THEIR  OWN  AXIS. 

INDV  ■ THE  GRAPH  NUMBERS  AS  SHOWN  IN  THE  MATRIX 

THAT  THE  USER  WANTS  PLOTTED  (FROM  ONE  TO  SIX). 

THIS  VARIABLE  IS  USED  WHEN  IGT  IS  'Y'  OR  'N'. 

IP  - IF  'Y'  PROBABILITIES  ARE  PRINTED 
IREP  ■ MULTI-GRAPH  SELECTION  (1,  2,  3,  OR  4) 


INITIALIZE  PLOT-10 


MOVE  TO  LOWER  LEFT  CORNER  OF  RECTANGLE 
CALL  MOVABS  >.200, 300) 

DRAW  BOTTOM  LINE 

CALL  DRWABS(930,300) 

DRAW  RIGHT  SIDE 

CALL  DRWABS (950, 680) 

DRAW  TOP 

CALL  DRWABS (200, 680) 

DRAW  LEFT  SIDE 

CALL  DRWABS(200, 300) 

MOVE  TO  THE  LEFT  SIDE  AND  DRAW  A HORIZ.  LINE  THRU  RECTANGLE 
CALL  MOVABS (70, 430) 

CALL  DRWABS  <■  950, 450  ) 

MOW  MOVE  TO  THE  TOP  AND  WITH  4 OTHER  MOVES  AND  DRAWS 
DRAW  4 VERT.  LINES  THRU  THE  RECTANGLE .. TH I S WILL  CREATE  10 
LITTLE  BOXES.  THAT  ARE  CLOSED.. 

CALL  MOVABSf 330, 700) 
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17610 
17620 
17630 
17640 
17650 
17660 
17670 
17660 
17690 
17700 
17710 
17720 
17730 
17740 
17750C 
17760C 
17770C 
17780 
17790 
17800 
17810 
17820 
17830 
17840 
17850 
17860 
17870 
17880 
17890 
17900C 
17910C 
17920C 
1 7930C 
1 7940C 
17950C 
17960 
17970 
17980 
17990 
18600 
18010 
18020 
18030 
18040 
18050 
18060 
18078 
18080 
18090 
18100 
18110 
18120 
18130 
18140 
18150 
18160 
18170C 
18180C 
18190 
18200 
18210 
18220 
18230 
18240 
18250 
18260 
18270 
18280 


CALL  DRWABS( 350,300) 

CALL  MOUABS(500, 700) 

CALL  DRWABS*500,300) 

CALL  MOUABS(650,  700) 

CALL  DRWABS*650,  300  > 

CALL  HOUABS* 800,700) 

CALL  DRUABSC 800,300) 

CALL  HOUA8S(950,600) 

CALL  DRWABS  ( 950 , 700  > 

CALL  DRWABS(70,700) 

CALL  DRVIABS( 70,300) 

CALL  DRWABS(200, 300) 

CALL  NOUABS(70,700> 

CALL  DRWABS (200,600) 

NOW  LABEL  ALL  THE  BOXES 

CALL  NOTATE (85, 375, 7,2) 
CALL  N0TATE(85,525,8,RD> 
CALL  NOT ATE <2 10, 650, 5, TOT) 
CALL  NOTATE<210, 610, 8, A) 
CALL  NOTATE*  360, 650, 4, C> 
CALL  NOTATE ( 360, 610, 8, A) 
CALL  NOTATE* 510, 650, 8, CON) 
CALL  NOTATE(510,610,8, A) 
CALL  NOT ATE (660, 650, 7, T) 
CALL  NOTATE (660, 610, 5, L) 
CALL  NOT  ATE (810, 650 • 6 , U> 
CALL  NOTATE (810, 610, 5, L) 


PUT  THE  NUMBERS  1 THRU  10  1H  THE  APPROPRIATE  BOXES 
ALSO, RING  THE  BELL  JUST  TO  GIUE  THIS  CODE  SOME 
REAL  CLASS 

CALL  N0TATE(275, 525, 1 , N( 1 > ) 

CALL  BELL 

CALL  NOTATE (275, 375, 1*N(2>> 

CALL  BELL 

CALL  NOTATE c 425 , 525, 1,N<3)) 

CALL  BELL 

CALL  NOTATE* 425, 375»1,N(4>> 

CALL  BELL 

CALL  NOT ATE (575, 525, 1 ,N(5)) 

CALL  BELL 

CALL  NOTATE* 575, 375, 1 , N(6) ) 

CALL  BELL 

CALL  NOT ATE ( 725, 525, 1 , N( 7) ) 

CALL  BELL 

CALL  NOTATE (725, 375, 1 ,N* 8)) 

CALL  BELL 

CALL  HOTATE*875, 525, 1 ,N(9) > 

CALL  BELL 

CALL  NOTATE (875, 375, 2, N( 10) ) 

CALL  BELL 

CALL  NOTATE (400, 740, 20, TIT) 

CALL  FINITT  BOTH  EXITS  AND  POSITIONS  THE  CURSER  BE. 
CALL  FINITT (8, 275) 

PRINT,*  DO  YOU  WANT  MORE  THAN  ONE  PLOT  PE&  .► 
READ, IGT 

IF* IGT.EQ. 1HY)G0T0  150 

10  PRINT,*  DO  YOU  WANT  GRAPHS  OR  BAR-CHART 
READ, IT 
IPRT-10HGRAPHS 

IF( IT. EC. 1HB. 0. IT.EQ. 1HS ) IPRT- 1 0HCHART S 
PRINT  101 , IPRT 

101  FORMAT* 4X, *HOW  MANY  *.A6,*  DO  YOU  WANT  , i * , • 
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18290 

18380 

18310 

18320 

18330 

18340 

18330 

18360 

18370 

18380 

18390* 

18400 

18418 

18420 

18430 

18440 

18450 

18460 

18478 

18488 

18490 

18300 

18510* 

18320* 

18330* 

18340 

18350 

18568 

18570 

18380 

18398 

18600 

18610 

18620 

18630 

18640 

18650 

18668 

18678 

18680 

18690 

18788 

18710 

18720 

18738 

18748 

18730 

18768 

18778 

18788 

18790 

18808 

18818 

18820 

18838 

18848 

18858 

18868 

18870 

18888 

18890 

18900 

18910 

18920 

18930 

18940 

18930 

18960 


READ, IANS 

IF< IANS. LE. 0.0. IANS. GT. 6 >20, 30 

20  PRINT, t MINIMUM-MAXIMUM  GRAPH  COUNT  INCORRECT,  PLEASE  RE-T 

GOTO  10 
30  PRINT, S * 

INO*10H  NUHBERS 
IFUANS.EO.  DIHO-10H  NUMBER 
IFCIAHS.EQ.  1>INDU<2>»0 
PRINT  100, IANS, IPRT,INO 

100  FORMAT < 4X , XPLEASE  TYPE  IN  THE*, 12, IX, AS, A8, * YOU  *,/, 

* MOULD  LIKE  DISPLAYED  IN  THE  FORM  (1,2,  ...  6)  *,t> 

IPMHN 

READ, (INDU(I), 1*1, IANS) 

IF< IANS. GT . 2>G0T0  40 

IF< INOU< 1 > .GT. 6.0. INDU(2).GT . 6)  GOTO  40 
IF(TCODE.NE. 1)G0T0  40 

PRINT,/,*  DO  YOU  WANT  PROBABILITIES  (Y  OR  N>  *, 

READ, IP 
40  CONTINUE 
GOTO  800 
150  PRINT  155 

155  F0RMAT(4X,XY0U  HAUE  THESE  CHOICES:  *,',10X,*1  ■ GRAPHS  1,3 
/, 10X, *2  • GRAPHS  2,4  ♦ 6 *, 

/, 10X, *3  * GRAPHS  7*9*, 

/, 10X, *4  « GRAPHS  8 * 10  *, /, 4X, *PLEASE  PICK  ONE  *,t> 

203  READ, I REP 

1001  FORMAT (4X, XINCORRECT  RESPONSE,  PLEASE  RE-ENTER  *,t> 

IF( IREP. LE. 4. A. IREP.GE. 1 >GOTO  282 
MR I TEC 6, 1001 > 

GOTO  283 
202  CONTINUE 
IT-1HG 
J-0 

GOTOC200, 480, 680, 700>, IREP 
280  IANS»3 
IP-1HN 

DO  201  1*1, 5, 2 
J*J*1 
I NDU  < J ) ■ I 
201  CONTINUE 
GOTO  800 
300  IANS-3 
IP-1HY 

DO  301  1*1,5, 2 
J*J*1 
INDU<  J)»I 
301  CONTINUE 
GOTO  800 

400  IANS*3 
IP-1HN 

DO  401  >2,6,2 

J-J+l 

INDU< J)*I 

401  CONTINUE 
GOTO  808 

500  IANS-3 
IP*1HY 

DO  501  1*2, 6, 2 

J*J*1 

INDUC J>*I 

501  CONTINUE 
GOTO  808 

600  IANS *2 
IP-1HN 

DO  601  1*7, 9, 2 

J*J*1 

INDUC  J)*I 

601  CONTINUE 
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18978 

18988 

18998 

19808 

19810 

19020 

19030 

19040 

19OS0 

19080 

19078C 

19080C 

19098C 

19100 

19118C 

19128C 

19130C 

19140C 

19150C 

19160C 

19170C 

19180C 


19240C 

19250 

19280 

19270+ 

19280 

19290+ 

19300 

19318 

19320 

19330 

19340 

19358 

19380 

19370C 

19380C 

19390C 

19400 

19410C 

19420C 

19430C 

19440C 

19450C 

19460C 

19470C 

19480 

19490 

19500 

19510 

19520C 

19530 

19540C 

19550C 

19560 

19570C 

19588 

19590C 

1980O 

19810 

19820 

19830 

19640C 


GOTO  808 

700  IANS-2 
IP-1HN 

DO  781  1-8,10.2 

J-J+l 

INDU< J)-I 

701  CONTINUE 
800  CONTINUE 

RETURN 

END 


FUNCTION  NUNB<I> 


OBJECTIVES: 

THIS  FUNCTION  HILL  RETURN  AN  INTEGER  FROM  ONE  TO  TEN. 
THIS  IS  DONE  WHEN  THE  USER  DECIDES  TO  BLOH-UP  ONE  GRAPH 
AFTER  HAUING  PLOTTED  ANYTHING  PRIOR.  THE  USER  HAS  THE 
OPTION  OF  TYPING  EITHER  THE  NUMBER  OF  THE  PLOT  OR  AN 
ALPHA  CODE  REPRESENTING  IT.  THE  POSSIBLE  UALID  ANSWERS 
ARE: 


19190C 

1 

OR 

TOT 

6 

OR 

CONZ 

19200C 

2 

OR 

TOTZ 

7 

OR 

TEN 

19210C 

3 

OR 

COO 

8 

OR 

TENZ 

19220C 

4 

OR 

COOZ 

9 

OR 

UNC 

19230C 

5 

OR 

CON 

10 

OR 

UN  CZ 

DIMENSION  IGOOD( 10) , ICH< 10) 

DATA  IGOOD^Hl  ,2H2  ,2H3  ,2H4  ,2H5  ,2H6  ,2H7  , 

2N8  , 2H9  ,2H10/r 

DATA  ICH/3HT0T, 4HT0TZ, 3HC00, 4HC00Z, 3HCON, 4HC0NZ, 
3HTEN,  4HTENZ,  3HUNC,  4HUNCZ-' 

HUH8-0 

DO  10  K-1,10 
IFU.EQ.  I GOOD  < K>  > NUMB -K 
IFCI.EQ. ICH(K) )NUMB-K 
10  CONTINUE 
RETURN 
END 


SUBROUTINE  USERSCX, Y, ISYM) 

THIS  ROUTINE  HAS  STOLEN  FROM  PAGE  191  OF  THE  AG  II  MANUAL 
HILL  LABEL  POINTS  WITH  PROBABILITIES 

COMMON  / CHOICE-'  IYOLD,  IT,  IP, KNTR, PR0BC36) , IGT , IFLG 
REAL  PROB 
INTEGER  IA(IS) 

DATA  ISIZ-'IO-' 

CONUERT  TO  SCREEN  COORDINATES 
CALL  MINCOT<X,Y, IX, IY) 

THIS  CODE  IS  A FIRST  ENTRY  BRANCH 

STORE  SLOPE  OF  LINE  -DOWN  OR  UP-  FOR  LABEL  LOC 
ISIG-IY-IYOLD 

BRANCH  IF  POINT  IS  OUTSIDE  OF  UO-INDOU 
IF<GENFLG< 1 > )GOTO  100 

GET  PARAMETERS  FROM  AXIS  COMMON  TO  DEFINE  LENGTH  OF  LABEL 
N8ASE-1BASEY<0) 

NDEC-1 
IHIDTH-2 
P - P ROBCKNTR) 

CONUERT  Y UALUE  TO  ALPHA  STRING 
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w 


r 


I 


h 


< 

i 

L 


19659 

19660C 

19679 

19689 

19690C 

19799 

19719 

19729 

19730 
19740 
19750 
19760C 
19770 
19789 
19799C 
19890 
19810 
19820 
19830 
19840 
19850 
19860C 
19870C 
19889C 
19899 
19900C 
19910C 
19920C 
19939C 
19940C 
19950C 
19960C 
19979C 
19980C 
19999C 
2000OC 
208 10C 
200200 
29830C 
20040C 
20050C 
20060C 
2O070C 
20080 
20090 
20109 
201 10* 
20120+ 
20130+ 
20140+ 
20150+ 
20160C 
20170C 
20180 
20190 
20200 
202 10C 
20220 
29230 
29240 
29250 
29260 
29270 
29280 
20299 
29390 
20319 
29329 


CALL  FF0RH<P,IHIDTH,NDEC,IA,32> 

RIGHT  JUSTIFY  LABEL 

CALL  JUSTERC IHIDTHf IA, 1,32, LEN* IOFF) 

IF<IT.EQ. 1HB.0.IT.EQ. 1HS)  GOTO  99 
OR AH  SHALL  ARROW  ABODE  OR  BELOU  LINE 
CALL  HOVABSUX-10,  IY+IS!GN<2,  ISIC>> 

CALL  DRWABSC IX, IY> 

CALL  DRHABS< IX-2, IY+ISIGN( 19, ISIG>> 

CALL  HOVAB$< IX, IY> 

CALL  ORHABSC IX-ISIZ* IY+ISIGH< ISIZ,  ISIG>> 

CALL  DRWABSf IX-ISIZ-5, IY+ISIGN( ISIZ* ISIG) ) 

WRITE  OUT  LABEL 

IYPOS"IY+ISIGN< ISIZ* ISIG>-8 

CALL  NOTATE  < I X- 1 S I Z-7+ 1 OFF , I YPOS , LEN, I A< I WIDTH-LEN+ 1 > > 
PREPARE  FOR  NEXT  SLOPE  CALCULATION 
GOTO  100 

99  CALL  NOTATE < IX- 10, IY+5, LEN* IAC IWIDTH-LEN+1 > ) 

100  IYOLD-IY 

KNTR  « KNTR  ♦ 1 
RETURN 
END 


SUBROUTINE  PTABLE<ZSCR*N*  J) 

OBJECTIVE  : TO  ASSIGN  PROBABILITIES  FROH  Z-SCORES  ACCORDING  TO 
PROPER  TABLE.  TABLE  1 BEGINS  AT  PSCRCl).  TABLE  2 
BEGINS  AT  PSCR<21>.  TABLE  3 BEGINS  AT  PSCR<41>.  EA 
TABLE  IS  20  ELEHENTS  LONG.  THE  VALUE  FOR  19  TO  INF 
ITY  IS  IN  THE  19TH  LOCATION  AND  THE  VALUE  FOR  0 IS 
THE  20TH. 

PAR AH ST 

ZSCR  - Z-SCORE  OF  TOTAL, COOP,  OR  CONFL 
H - NUMBER  OF  ELEHENTS  IN  ARRAY 
J - TABLE  TYPE 

2 ■ TOTAL  ACTIVITY 
4 » COOPERATIVE  ACTIVITY 
6 « CONFLICTUAL  ACTIVITY 
PROS  - PROBABILITY  ARRAY  RETURNED 


COHHON  ' CHOICE'  IYOLD, IT, IP,KNTR,PR0B<36>, IGT, IFLG 
DIMENSION  ZSCR ( 36 ) * PSCR ( 60 > 

DATA  PSCR  ' . 1 * . 1 * . 4 * . 5* . 6 * . 6 * . 7* • 7 * . 7* . 7* 

.8, .8* .8* .8* .8, .8* .8* .8* .9* . 1 * 
.1*.1«.1*.1*.2*.2».4*.4*.4«.4* 

. 6*. 6*. 6*. 6*. 6*. 6*. 6*. 6*. 7*. 1, 

• 1* . 1* .4*. 5* .6* .6* .7* .7* .7* .7* 

.8* .8* .8* .8* .8* .8* .8* .8* .9* . 1' 


IF< J. EQ. 2)  K-0 
IFCJ.EQ.4)  K-20 
IF( J.EQ.6)  K - 40 

DO  10  I>1*N 

IF< INT<ZSCR< I >♦. 5>. GE. 19>  GOTO  20 
IF< INT(2SCR( I >♦. 5) . LE. 0>  GOTO  30 
IVAL  - INT< (ZSCR< I >♦. 5>+K) 

GOTO  40 

20  IVAL  • 19  ♦ K 
GOTO  40 

30  IVAL  - 20  ♦ K 
40  PROB(I>  ■ PSCR < IVAL) 

10  CONTINUE 
RETURN 
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m 


21010 
21020 
21030 
21040 
21030 
21060 
21070 
21080 
21090 
21100 
21110 
21120 
21130 
21140 
21150 
2U60C 
21 170C 
21180C 
21190 
21200 
21210 
21220 
21230 
21240 
21250 
21260 
21270 
21280 
21290C 
21300 
21310 
21320 
21330 
21348C 
21350C 
21360C 
21370 
21380C 
21390C 
21400C 
21410C 
21420C 
21438C 
21440C 
21450C 
21460C 
21463C 
21470C 
21480C 
21498C 
21500C 
21510 
21520 
21530 
21540 
21550* 
21560 
21570 
21580 
21590 
21600 
21610 
21620 
21630 
21640 
21650 
21660 
21670 


LOGICAL  DUAL 

CALL  CHCHUT<30*AOI» INITR) 

CALL  CHCNUT  < 30 , ADR  » REC I P > 

DO  20  I«l,30 

IF< INITR< I ). EQ. 32. A. INITR< I*1).EQ.32)G0T0  21 

20  CONTINUE 

21  ILEN-l 

DO  30  J-1'30 

IF(RECIP<  JKEQ.32.  A.RECIP<  J+l ).EO. 32>G0T0  31 
38  CONTINUE 
31  JLEN-J 

CALL  JUSTER (ILEN, I N I TR , ♦ 1 , 32 , LEN , I OFF  > 

CALL  NOTATE<410*IOFF , 765* LEN, INITR) 

IX-450 

IY-773 

DRAW  ARROW 

CALL  HOUABS<IX, IY) 

CALL  DRWRELC 100*0) 

CALL  DRWREL<-20*5) 

CALL  HOUREL<0,-10> 

CALL  DRWREL<20,5) 

IF<. NOT. DUAL)  GOTO  10 
CALL  HOURELC- 188,0) 

CALL  DRWREL<20, 5) 

CALL  NOUREL<0, -10) 

CALL  DRWRELC -20, 5) 

10  CALL  JUSTERC JLEN, RECIP* -1 , 32, LEN 1 , IOFF1  > 
CALL  NOTATE<600, 765, LENI, RECIP) 

RETURN 

END 


SUBROUT  I ME  L GND  < I ANS , I ND  > 

OBJECT I ue: 

IF  IGT  • 'Y'  THEN  THE  USER  HAS  CHOSEN  A HULTI-GRAPH 
GRAPH,  AND  JUST  BELOW  THE  TITLE.  THE  LEGEND  WILL 
CONSIST  OF  THE  ASSOCIATED  LINE  DRAWN  ON  THE  GRAPH 
FOLLOWED  BY  THE  3 OR  4 LETTER  CODE  NAMING  IT.  SINCE 
THE  OPTIONS  ALLOW  ONLY  2 OR  3 CURUES  ON  A MULTI-GRAPH 
THE  LEGEND  HAS  ONLY  TWO  OR  THREE  LINES  FOLLOWED  BY  THE 
CURUE  NAME. 4 

PARAMETERS: 

IANS  « NUMBER  OF  CURUES  <2  OR  3) 

IND  ■ THE  MATRIX  HUMBERS  OF  THESE  CURUES  <1-10) 

DIMENSION  IND<6),ILINE<2),ITITLU0),IPRT<6> 

DIMENSION  IFSTC4), ISNDC4), ITRD(4) 

DATA  ILINE  '3454,1212' 

DATA  ITITL  '4HT0T  , 4HT0TZ, 4HC00  , 4HC00Z, 4HC0N  ,4HC0NZ 
4HTEN  , 4HTENZ, 4HUNC  ,4HUNCZ' 

CALL  HOUABS(250, 720) 

CALL  ORWABSC 330, 720) 

IF < I ANS. EQ. 2)  GOTO  10 
CALL  HOUABS  < 450 , 720  > 

CALL  DSHABS(550, 720, ILINE< 1 ) ) 

N»2 

GOTO  30 
10  H-l 
30  CONTI HUE 

CALL  HOUABS  < 650 , 720 ) 

CALL  DSHABS < 750 ,720,ILINE(N)> 

CALL  CMCNUTC4, ITITL ( IND< 1 )), IFST) 
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21689 

21690 
21700 
21710 
21720 
21730 
21740 
21730 
21760 
21770 
21780 
21790 
21800 
21810C 
21820C 
21830C 
21840C 
21850 
21860C 
21870 
21 880C 
21890C 
21900C 
21910C 
21915C 
21920C 
21930C 
21940C 
21930C 
21960 
21970C 
21980 
21990+ 
22800 
22010+ 
22020+ 
22030+ 
22040+ 
22050C 
22060 
22070 
22080 
22090 
22100 
22110 
22120 
22130 
22140 
22158C 
22160 
22170 
22180 
22190 
22200+ 
22210+ 
22228+ 
22238C 
22240 
22230 
22260C 
22270 
22280 
22290 
22300 
22310+ 
22320+ 
22330 
22340+ 


CALL  CHCNUT<4» ITITL< IND<2>>* ISND) 

IF< IANS. EQ. 3>  CALL  CHCNUT<4, ITITL< IND<3>>, ITRD) 
CALL  HOTATE<370*  728*4* IFST> 

IF( IANS. EQ. 2)  GOTO  60 
CALL  NOTATE (370,  720,4, ISND) 

N-3 

GOTO  70 
60  N»2 
70  CONTINUE 

IF(N. EQ. 2)  CALL  NOTATE<770, 720, 4, ISND) 
IF(N.EQ.3>  CALL  NOTATE(770, 720,4, ITRD) 

RETURN 

END 


OUERLAY  < OURLAY ,5*0) 

PROGRAM  TABULAR 
OBJECTIUE: 

THIS  OUERLAY  MILL  PRINT  THE  ARRAYS  GENERATED  IN 
OUERLAY  2,0  IN  TABULAR  FORM 

SUBROUTINES: 

DEKODE  - ROUTINE  RETURNS  THE  ALPHA  MONTH  AND  YEAR 
FROM  AN  INTEGER  16  INPUT 

IMPLICIT  INTEGER(A-Z) 

COMMON  ✓PARAH-'  Cl , NI , ADI (3) , CR, NR, ADR<3) , DUAL, 

SDATE , FDATE , TCODE , SMODE . R , I SPEED , I N I T A6 
COMMON  /RESLT/  COUNT, IC,DATE(36),EUENT(22, 36), 

COOP  C 36 ) , CONFL ( 36  > , TOTAL  ( 36  > , ATOTAL  ( 36  > , 
2T0T AL < 36 ) , ACOOP < 36 > , 2COOP < 36 > , ACONFL < 36 ) , 
2C0NFL  ( 36  > » TF ( 36 ) , 2ST ( 36  > , HR ( 36  > , 2SH ( 36 ) « 
PTOT  AL ( 36  > , PCOOP  ( 36  > , PCONFL ( 36  > , RD  ATE  ( 36  ) 

CHARACTER*3  CI.CR 
CHARACTER  AD I, ADR 
LOGICAL  DUAL 
CHARACTERM  FUCODE 
DIMENSION  FUC0DE<22) 

CHARACTERT9  INTRUL(3) 

CHARACTERS  1 STYPE(2> 

REAL  2T0TAL , 2C00P , 2C0NFL , 2ST , 2HR . TF , HR 
REAL  PTOTAL, PCOOP, PCONFL 

DATA  NE/22/ 

DATA  INTRUL  /'  MONTHLY' , 'QUARTERLY' , ' YEARLY'/1 
OATA  S TYPE /'NORMAL ' , PROGRESSIUE'/ 

DATA  FUCODE/'YLD  ' , 'CMNT', 'CNSL ' , ' APPR' , PRMS  , 'GRNT' , 
'REWD', 'ACRE', 'RQST', 'PROP', 'RJCT', 'ACUS', 
'PROT', 'DENY', 'DMND', 'WARN', 'THRT', 'DEMO', 
'RDUC',  'EXPL',  'SEI2',  'FRCE  V 

CALL  DEKODE(SDATE, ISM, ISY) 

CALL  DEKODE (FDATE, I FM.IFY) 

4006  FORMAT ( 22X , A9 , 1 X , ' COOPER AT I UE  ACTIUITY') 

4009  FORMAT (22X.A9, IX, 'CONFLICTUAL  ACTIUITY') 

4016  FORMAT (27X, A3, ',  ',14,'  - ',A3, ',  ',I4,/> 

4003  FORMAT <1 IX, 'TOTAL  ACTIUITY', 6X, 'COOPERATIVE  ACTIUITY', 

2X, 'CONFLICTUAL  ACTIUITY ',/, 2X, 'DATE',3X, 

“is 'Ui imppb  7-crncp  pdhr  'ws 

6005  FORMATS  IX, 'TOTAL  ACTIUITY' , 6X. 'COOPERAT IUE  ACTIUITY', 

2X, 'CONFLICTUAL  ACTIUITY', /,2X, 'DATE',3X, 
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22330+ 

22360 

22370 

22380 

22390+ 

22480 

22410 

22420 

22430 

22440 

22450 

22460+ 

22470 

22480 

22490 

2250O 

22510 

22520 

22530 

22540 

22550+ 

22560+ 

22570 

22S80 

22590 

22600+ 

22610 

22620 

22630 

22640 

22630 

22660 

22670 

22680 

22690 

227O0 

22710 

22720 

22738 

22740+ 

22750+ 

22760 

22770 

22780+ 

22790 

22880+ 

22818 

22820 

22838 

22840C 

22850 

22860 

22870+ 

22880 

22890 

22900 

22910 

22920 

22930 

22940 

22950 

22960 

22970 

22980 

22990 

23000 

23010 

23820 


4001 


4002 


580 

501 


5001 

600 


2X , ' NUMBER  ' , 4X,  ' Z-SCORE ' , 3X , 2 < ' NUMBER  ' , 7X , ' 2 -SC ORE ' , 2X > / > 
CALL  BLANC 

WRITE<6, 4001 >INTRUL<TCODE>, ISM, ISY, IFM, IFY 
F0RMAT<27X»A9»  IX,  'ACTIVITY' , /, 26X, 

A3,',  ',14,'  - ' , A3, ' , ' , 14, /> 

IFLO  » 3HTU0 
IDIRM0H<<<<<<<<<< 

I F < . NOT . DUAL ) I FL0-3H0NE 

IF<.  NOT.  DUAL)  IDIR-10H>>>»>>>» 

WRITE (6, 4002 )C I , IDIR, IFLO,CR 
FORMAT  < 17X, 't*f ', IX, A3, IX, A6, IX, A3, 

'-HAY  FLOH  >>>>>>  ',A3, ' «*',/> 

IFCTCODE.EQ. 1 > WRITE <6, 4005) 

I F < T CODE . NE . 1 ) WR I TE ( 6 • 6005 ) 

NC-IC 

IFUC.GT.  18)500,501 

UTalg 

DO  350  I-l.NC 
IF(TCODE.NE.l)  GOTO  600 

HRITE<6, 3001 ) RDATE< I ) , TOTAL < I ) , ZTOTALU  > , PTOTALU  ) , 
COOP<I),ZCOOP<I),PCOOP<I), 

CONFL < I > , ZCONFL (I > , PCONFL  < I ) 

' » 3< 14, 2X, F7. 2, IX, F5. 2, 3X> ) 


350 

180 


302 


FORMAT < IX, A6, 

GOTO  350 

WRITE<6, 6001 ) RDATE< I > , TOTAL < I ) , ZTOTAL< I ) , C00P< I > , ZCOOP< I ) 
CONFL U ) , ZCONFL < I > 

CONTINUE 

FORMAT<A10) 

READ  100,1 

IFUC.GT.18)  502,503 

NF-NC+1 

CALL  BLANC 

WRITE(6,4081 >INTRVL<TCODE>, ISM, ISY, IFM, IFY 
WRITE(6,4002)CI, IDIR, IFLO.CR 
IFCTCODE.EQ. 1 )HRITE<6, 4003) 

IF<TCODE.NE. 1) WRITE <6, 6005) 

DO  353  I • NF, IC 
IF<TCODE.NE. l)GOTO  601 

WRITE <6, 5001 ) RDATE< I ) , TOTAL < I > , ZTOTAL< I > , PTOTALC I >, 

COOP < I ) , ZCOOP < I > , PCOOP < I > , 

CONFL  < I > , ZCONFL  < I ) , PCONFL  < I > 


601 

6001 

355 

503 


GOTO  355 
HRITE<6, 6001 ) 


FORMAT <1X,A6, 
2<I4,8X,F7.2,3X)> 
CONTINUE 
READ  100,1 
CALL  BLANC 


RDATE< I ) , TOTAL U ) , ZTOTALC I > , COOP < I ) , ZCOOP (I > 
CONFL< I), ZCONFL <I) 

I4,7X,F7.2,3X, 


WRITE<6, 401 1 > INTRUL(TCODE) , ISM, ISY, IFM. IFY 
4011  FORHAT<20X,A9, IX, 'TENSION  AND  UNCERTAINTY',/, 

26X, A3, ' , ',14,'  - ', A3,  ',  ',I4,/> 

WRITE <6, 4002 )C I , IDIR, IFLO,CR 
WRITE(6, 5002) 

5002  FORMAT < 17X, ' DATE  TENSION  Z-SCOPE  H-REL  Z-SCORE'/) 
NC-IC 

IFUC.GT.18)  518,511 
518  NC-18 

511  DO  388  I-l.NC 

MRITE(6, 5006)  RDATE< I ), TF< I > , ZST< I ) , HR< I> , ZSHCI ) 

5006  FORMAT < 18X,A6, ' ' , F5. 1 ,2X, F7. 2, 3X, F5. 3, IX, F7. 2) 

380  CONTINUE 
READ  100,1 

IFUC.GT.18)  512,513 

512  NF-NC+1 
CALL  BLANC 

WRITE (6, 401 1 ) INTRVL(TCODE) , ISM, ISY, IFM, IFY 


94 


23030 

23040 

23050 

23060 

23070 

23080 

23090 

23100 

23110 

23120 

23130 

23140 

23150 

23160 

23170 

23180 

23190 

23200 

23210 

23220 

23230 

23240 

23250 

23260 

23270 

23280 

23290 

233O0 

23310 

23320 

23330 

23340 

23350 

23360 

23370 

23380 

23390 

23400 

23410 

23420 

23430 

23440 

23450 

23460 

23470 

23480 

23490 

23500 

23510 

23520 

23530 

23540 

23550 

23560 

23570 

23580 

23590 

23600 

23610 

23620 

23638 

23640 

23650 

23660 

23670 

23680 

23690 

23700C 


URITEC6, 4002 )C I , IDIR, 1FL0, CR 
URITEC6, 5002) 

DO  385  I • NF.IC 

UR I TE  < 6 1 5006 ) RDATE CI)»TFCI>, ZST  C I ) , HR  C I ) , 2SHC I > 
385  CONTINUE 
READ  100,1 
513  CALL  BLANC 

PRINT,*  DO  YOU  MANT  EUENT  FREQUENCIES  <Y  OR  N>*, 
READ  100,1 
IFCI.EQ.  1HY>359, 390 
359  CALL  BLANC 

UR I TE  C 6 , 4006  > I NTRUL  C TCODE ) 

URITE<6, 4016) ISH, ISY, IFN, IFY 
UR I TEC 6, 4002 )C I, IDIR, IFLO,CR 
UR I TEC 6, 4007) CFUCODECE) , E*1 , 10) 

4007  FORMAT C 10X, 'DATE',4X, 12CA4, IX)) 

URITEC6, 4008) 

4808  FORMAT C'  ') 

NC-IC 

IFCIC.GT.18)  520,521 

520  NC*18 

521  DO  360  1*1 , NC 

URITE<6,5005)RDATECI), CEUENTCE, I),E-1, 10) 

5085  F0RMATC9X, A6, ' ',12CI4,IX>) 

368  CONTINUE 
READ  100,1 
IFCIC.GT. 18)522,523 

522  NF-NC+1 
CALL  BLANC 

HR I TE  C 6 , 4006 ) I NTRUL C TCODE ) 

URITEC6, 4016) ISH, ISY, IFM, IFY 
URITEC6, 4002 )C I , IDIR, IFLO.CR 
UR I TEC 6, 4007) CFUCODECE) , E* 1 , 10) 

URITEC6, 4008) 

DO  365  I *NF , I C 

365  CONTINUE5005>  RDATE< 1 > * <EUENTCE, I ) , E-l , 10) 

READ  100,1 

523  CALL  BLANC 

UR I TE  C 6 , 4809 ) I NTRUL  C TCODE  > 

URITEC6, 4016) ISH, ISY, IFM, IFY 
UR I TEC 6, 4002 )C I , IDIR, I FLO, CR 
URITEf 6, 6007) CFUCODECE), E-l 1,22) 

6007  F0RHATC6X, 'DATE',4X, 12CA4, IX) ) 

6009  F0RHATC5X, A6,  ' ',12CI4,1X)> 

URITEC6, 4008) 

NC*  IC 

IFCIC.GT. 18)530,531 

530  NC-18 

531  DO  370  1*1 ,NC 

370  CONT INUE6009>RDATE< 1 > * 'EUENT  <E’ I > * E*1 1 , 22) 

READ  100,1 
IFCIC.GT. 18)532,390 

532  NF-NCM 
CALL  BLANC 

URITEC6, 4009) INTRULCTCODE) 

UR I TEC 6, 4016) ISM, ISY, IFM, IFY 
URITEC6,4002)CI, IDIR, IFLO.CR 
URITEC6, 6007) CFUCOOECE),E*l 1,22) 

UR I TEC 6, 4008) 

DO  375  I*NF, IC 

375  SNTINu|6809>RDflTE<I>,<EgENT  CE, I),E*1 1,22) 

READ  100,1 
390  CONTINUE 
END 


95 


L 


237 10C 

23720C 

23725C 

23726C 

23730 

23733C 

23736C 

23737C 

23740 

23730 

23760+ 

23770 

23780 

23790 

23800 

23810 

23820 

23830C 

23840C 

23850C 

23860C 


SUBROUTINE  DEKODE< ID, I MONTH, I YEAR) 

SUBROUTINE  DESCRIBED  IN  OUERLAY  2,0 
DIMENSION  MONTHS < 12) 

DATA  MONTHS  /3HJAN, 3HFEB, 3HMAR, 3HAPR, 3HMAY, 3HJUN, 
3HJUL, 3HAUG, 3HSEP, 3HOCT, 3HNOU, 3HDEC/ 

IY*ID'10000 

IM*< ID- 1 0000*1 Y>/ 100 

IMONTH-MOHTHSUM) 

IYEAR«< IY+1900) 

RETURN 

END 
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NATION  FILE 


7W  AFC 
339  ALB 
615  ALG 
232  AND 
561  ANG 
160  ARC 
900  AUL 
305  AUS 
695  BAH 
053  BAR 
211  BEL 

266  EBE 

267  HBE 
760  BHU 
765  BGD 
145  BOL 
571  BOT 
140  BRA 
355  BUL 
775  BUR 
516  BUI 
Oil  CAR 
471  CAO 
020  CAN 
431  CPU 

402  CEN 
700  CEY 

403  CHA 
155  CHL 
710  CNN 
713  CHT 
100  COL 
495  CON 

404  CON 
490  COP 
094  COS 
040  CUB 

352  CYP 

353  CYT 
315  CZE 
434  DAN 
390  DEN 
042  DON 
130  ECU 
092  ELS 
440  GUE 
531  ELF 
530  ETH 
375  FIN 
220  FRN 
900  FIJ 
555  FRE 
401  GAB 
420  GAN 
265  GHE 
255  GNU 


AFGHANISTAN 

ALBANIA 

ALGERIA 

ANDORRA 

ANGOLA 

ARGENTINA 

AUSTRALIA 

AUSTRIA 

BAHRAIN 

BARBADOS 

BELGIUM 

BERLIN^ EAST 

BERLIN/ WEST 

BHUTAN 

BANGLADESH 

BOLIUIA 

BOTSWANA 

BRAZIL 

BULGARIA 

BURMA 

BURUNDI 

CAH80DIA 

CAHEROUN 

CANADA 

CAPE  UERDE 

CENTRAL  AFRICAN  REP 

CEYLON 

CHAD 

CHILE 

CHINA,  PEOPLES  REP 
CHINA,  REP  OF 
COLUMBIA 
COMORO  ISLANDS 
CONGO  (BRAZZAVILLE) 

ZAIRE  < CONGO-K I NSHASA > 

COSTA  RICA 

CUBA 

CYPRUS/GREEK 

CYPRUS/TURKISH 

CZECHOSLOVAK I A 

DAHOMEY 

DENMARK 

DOMINICAN  REP 

ECUADOR 

EL  SALVADOR 

EQUITORIAL  GUINEA 

ERITREAN  LIBERATION  FRONT 

ETHIOPIA 

FINLAND 

FRANCE 

FIJI 

FREL I MO -MOZAMBIQUE  LIB.  0 

GABON 

GAMBIA 

CERHANY/DEM  REP 
GERMANY/FED  REP 


: HAITI 
I HONDURAS 
I HUNGARY 
I HONG  KONG 
[ ICELAND 

> INDIA 

i INDONESIA 
I IRAN 
I IRAQ 
: IRELAND 
t ISRAEL 

> ITALY 

) IUORY  COAST 
I JAMAICA 
» JAPAN 
( JORDAN 
I KENYA 
I KOREA/'NORTH 
i KOREA/SOUTH 
! KURDISTAN 
I KUWAIT 
I LAOS 
I LEBANON 
i LESOTHO 
: LIBERIA 
' LIBYA 

LIECHTENSTEIN 
: LUXEMBURG 
MACAO 
MALAGASY 
I MALAWI 
MALAYSIA 
MALDIUE 
MALI 
MALTA 
MAURITIUS 
MAURITANIA 
MEXICO 
MONACO 
MONGOLIA 
MOROCCO 

MUSCAT  AND  OMAN 

NAMIBIA 

NAURU 

NAURU 

NEPAL 

NETHERLANDS 

NEW  ZEALAND 

NICARAGUA 

NICER 

NIGERIA 

NORWAY 

PAKISTAN 

PANAMA 

PAPUA  NEW  GUINEA 

PARAGUAY 

PERU 

PHILIPPINES 

POLAND 

PORTUGAL 

PR I NCI PEE  AND  SAO  TOMEE 

QATAR 

RHODESIA 

RUMANIA 

RWANDA 

SAN  MARINO 

SAUDI  ARABIA 

SENEGAL 


SIERRA  LEONE 

SINGAPORE 

SOMALIA 

SOUTH  AFRICA 

SOUTH  YEMEN 

SPAIN 

SUOAN 

SURINAM 

SWAZILAND 

SWEDEN 

SWITZERLAND 

SYRIA 

TANZANIA 

THAILAND 

TIBET 

TOGO 

TRINIDAD- TOBAGO 

TUNISIA 

TURKEY 

UGANDA 

USSR 

UNITED  ARAB  EMIRATES 
UAR  (EGYPT) 

UNITED  KINGDOM 
USA 

UPPER  UOLTA 
URUGUAY 
UATICAN 
UENEZUELA 
UIETNAM/SOUTH 
U1ETNAM /"NORTH 
WESTERN  SAMOA 
YEMEN 

YEMAN/SOUTH 

YUGOSLAVIA 

ZAMBIA 

ZIMBABWE -RHODES I A LIB.  ORG. 

ALLIANCE  FOR  PROGRESS 

ARAB  LEAGUE 

BIAFRA 

EEC 

EFTA 

NATO 

OAS 

OAU 

ARAB  COMMANDO  GROUPS 

PATHET  LAC 

SEATO 

UIETCONG  AND  NLP 
WARSAW  PACT 

ANY  INTL  ORG  (UN,  ETC) 

ANY  MULTILATERAL  GRP 

MOT  STATED,  UNIDENTIFIED  TRGT 
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Sample  Program  Output.  A sample  of  the  output  from  the  crisis  early 
warning  prototype  system  is  notated  to  describe  the  area  in  the  program 
from  which  the  output  is  generated. 

System  Design.  A graph  of  the  crisis  early  warning  prototype  shows 
the  relationship  each  overlay  and  its  associated  subroutines  has  to  the 
main  overlay  as  well  as  to  each  other. 

System  Flow  Charts.  The  main  overlay  and  each  of  the  primaries  are 
flow  charted.  Calls  to  the  subroutines  are  shown  as  predefined  processes 
and  not  charted  individually. 

Documented  FORTRAN  Source  Code.  To  allow  access  and  ease  of  modifi- 
cation to  any  FORTRAN  programmer,  each  routine  is  internally  documented. 
Appendix  A and  B contain,  respectively,  the  NATION  file  and  the  RWINDX  file, 
the  index  for  the  events  file  by  month. 


